Цитата(Sweeex @ 09.06.11, 12:48)
Процедура Печать() Экспорт
ФормаВыбора = Справочники.ХранилищеДополнительнойИнформации.ПолучитьФормуВыбора();
ФормаВыбора.Отбор.Объект.Значение = ВидЦеннойБумаги;
ФормаВыбора.Отбор.Объект.Использование = Истина;
ФормаВыбора.Отбор.ВидДанных.Значение = Перечисления.ВидыДополнительнойИнформацииОбъектов.Файл;
ФормаВыбора.Отбор.ВидДанных.Использование = Истина;
ФормаВыбора.Заголовок = "Выберите шаблон для печати";
ФормаВыбора.ЭлементыФормы.СправочникСписок.Колонки.ВидДанных.Видимость = Ложь;
ФормаВыбора.ЭлементыФормы.СправочникСписок.Колонки.ИмяФайла.Видимость = Ложь;
РезультатВыбора = ФормаВыбора.ОткрытьМодально();
Если РезультатВыбора = Неопределено Тогда
Возврат;
Иначе
З = Новый Запрос("ВЫБРАТЬ
| ВидыЦенныхБумагШаблоныПечати.Псевдоним,
| ВидыЦенныхБумагШаблоныПечати.Формат,
| ВидыЦенныхБумагШаблоныПечати.Формула,
| ВидыЦенныхБумагШаблоныПечати.ВыводитьНаПечать
|ИЗ
| Справочник.ВидыЦенныхБумаг.ШаблоныПечати КАК ВидыЦенныхБумагШаблоныПечати
|ГДЕ
| ВидыЦенныхБумагШаблоныПечати.Ссылка = &ВидЦБ
| И ВидыЦенныхБумагШаблоныПечати.Шаблон = &Шаблон");
З.УстановитьПараметр("ВидЦБ", ВидЦеннойБумаги);
З.УстановитьПараметр("Шаблон", РезультатВыбора.Ссылка);
ТабПсевдонимов = З.Выполнить().Выгрузить();
ПечатьДокументов.СформироватьВWord(ЭтотОбъект, РезультатВыбора, ТабПсевдонимов);
КонецЕсли;
КонецПроцедуры
как тут тут понять гд хранятся шаблоны по которым ворд формирует документ и как создать аналогичный документ....
или какой кусок кода кинуть чтоб Вы мнесмогли помочь....