0
nikolaii1902
28.05.21
✎
14:43
|
Здравствуйте, реализовал сохранение шаблона ворд в формат пдф и ворд, можно ли как то исправить код, чтобы автоматически доки открывались заданных в форматах без указания пути в целом?
буду рад, если поможете
&НаСервере
Процедура Серверная()
ТрудовойДоговор=РеквизитФормыВЗначение("Объект").ПолучитьМакет("ТрудовойДоговор");
// Получить объект из макета.
MSWord = ТрудовойДоговор.Получить();
Попытка
Документ = MSWord.Application.Documents(1);
Документ.Activate();
// Получить объект, который будет использоваться для поиска и замены.
Замена = Документ.Content.Find;
// Заменить заранее определенные ключевые конструкции на требуемый текст.
Замена.Execute("<Ruk>", Ложь, Истина, Ложь, , , Истина, , Ложь, Директор );
//и тд.....
// Вкл видимость приложения и активизируем его.
//MSWord.Application.Visible = Истина;
MSWord.Activate();
Если РольДоступна("Администратор") Тогда
MSWord.SaveAS("D:\файл пдф\"+ Объект.Номер +".pdf",17 );
КонецЕсли;
Если РольДоступна("Бухгалтер") Тогда
MSWord.SaveAs("D:\файл пдф\"+ Объект.Номер +".docx" , 16);
КонецЕсли;
Исключение
// Если произойдет ошибка, выводятся данные об ошибке, и объект закрывается.
Сообщение = Новый СообщениеПользователю();
Сообщение.Текст = ОписаниеОшибки();
Сообщение.Сообщить();
MSWord.Application.Quit();
КонецПопытки;
КонецПроцедуры
|
|