4
mpvpes
25.10.12
✎
11:40
|
Вот фрагмент процедуры вызова шаблона ActiveDocument
Письмо = Документы.ТехническиеУсловияФизЛиц.ПолучитьМакет("ПисьмоКДоговору");
MSWord = Письмо.Получить();
Попытка
Документ = MSWord.Application.Documents(1);
Документ.Activate();
Замена = Документ.Content.Find;
Замена.Execute("<Заявитель>", Ложь, Истина, Ложь, , , Истина, , Ложь, ПечЗаявительДП);
Замена = Документ.Content.Find;
Замена.Execute("<АдресРегистрацииПолный>", Ложь, Истина, Ложь, , , Истина, , Ложь, АдресРегистрацииПолный);
Замена = Документ.Content.Find;
Замена.Execute("<ИмяОтчество>", Ложь, Истина, Ложь, , , Истина, , Ложь, ИмяОтчество);
Замена = Документ.Content.Find;
Замена.Execute("<ПечОбъект>",Ложь, Истина, Ложь, , , Истина, , Ложь, ПечОбъект);
Замена = Документ.Content.Find;
Замена.Execute("<АдресОбъектаПолный>",Ложь, Истина, Ложь, , , Истина, , Ложь, АдресОбъектаПолный);
Замена = Документ.Content.Find;
Замена.Execute("<Директор>", Ложь, Истина, Ложь, , , Истина, , Ложь,Директор);
MSWord.Application.Visible = Истина;
MSWord.Activate();
Исключение
// Если произойдет ошибка, выводятся данные об ошибке и объект закрывается.
Сообщить(ОписаниеОшибки());
MSWord.Application.Quit();
КонецПопытки;
|
|