3
Хрущёв
20.06.12
✎
23:23
|
Вот пример кода, может поможет
// получение COM объекта
MSWord = Новый COMОбъект("Word.Application");
// запись временного файла
ДвоичныйФайл = МакетПечатнойФормы.АктивныйДокумент.Получить();
ИмяВременногоФайла = ПолучитьИмяВременногоФайла("doc");
ДвоичныйФайл.Записать(ИмяВременногоФайла);
// открытие файла
Приложение = MSWord.Application;
Документ = MSWord.Documents.Open(ИмяВременногоФайла);
// замена параметров
Для Каждого СтрокаТЧ Из МакетПечатнойФормы.ПараметрыАктивногоДогумента Цикл
СтрокаЗамены = Выборка[СтрЗаменить(СтрокаТЧ.ПолеНастройки,".","")];
Если ТипЗнч(СтрокаЗамены) = Тип("Дата") Тогда
СтрокаЗамены = Формат(СтрокаЗамены,"ДФ=dd.MM.yyyy");
Иначе
СтрокаЗамены = Строка(СтрокаЗамены);
КонецЕсли;
Замена = Документ.Content.Find;
Замена.Execute(СтрокаТЧ.ИмяПараметра, Ложь, Истина, Ложь, , , Истина, , Ложь, СтрокаЗамены,2);
КонецЦикла;
// печать/показать
Если ПечататьНаПринтер Тогда
MSWord.Application.PrintOut(,,,,,,,1,,,,,,,,,,,);
Иначе
MSWord.Application.Visible = Истина;
MSWord.Activate();
КонецЕсли;
|
|