|
Конвертация doc в pdf и последующая отправка документа | ☑ | ||
---|---|---|---|---|
0
KnightAlone
30.03.20
✎
16:08
|
по мотивам ветки v8: Конвертация doc в pdf и последующая отправка документа через встроенный почтовый.
есть рабочий код формирования файла Word и отправки его почтой, понадобилось отправлять в виде pdf. делаю, как написано в той ветке Документ.SaveAs(ПолноеИмяФайла, 17, False, "", True, "", False, False, False, False, False); и обработка зависает, в папке файл создается в pdf. обнаружил, что в процессах висит Word.СохранитьКак, то есть видимо висит процесс ожидания закрытия диалогового окна. не нашел, какой параметр надо поменять, чтобы диалоговое окно не выводилось. https://docs.microsoft.com/ru-ru/office/vba/api/word.saveas2 тут тоже не вижу |
|||
1
Garykom
гуру
30.03.20
✎
16:27
|
(0) сделай перед этим
Документ.Application.Visible = Истина; |
|||
2
KnightAlone
30.03.20
✎
17:20
|
(1) теперь разница только в том, что это диалоговое окно видно и оно висит в ожидании. мне нужно чтобы все ушло программно, без всяких окон
вот так идет сохранение в doc Документ = ПолучитьМакетНаСервере(СотрРассылки.ИмяМакета); Если Документ<>Неопределено Тогда имяВременногоФайла = ПолучитьИмяВременногоФайла(".doc"); Документ.Записать(имяВременногоФайла); Word = Новый COMОбъект("Word.Application"); КомОбъект = Word.Documents.ADD(имяВременногоФайла); Иначе Возврат; КонецЕсли; КомОбъект.Variables.Item("ФИО").Value = "" + СерверныеДанные.ФИО_Дательный; КомОбъект.Fields.Update(); КомОбъект.SaveAs(имяВременногоФайла,0); КомОбъект.Close(); Word = Неопределено; пробую сделать в pdf Документ = ПолучитьМакетНаСервере(СотрРассылки.ИмяМакета); Если Документ<>Неопределено Тогда имяВременногоФайла = ПолучитьИмяВременногоФайла(".doc"); Документ.Записать(имяВременногоФайла); Word = Новый COMОбъект("Word.Application"); КомОбъект = Word.Documents.ADD(имяВременногоФайла); Иначе Возврат; КонецЕсли; КомОбъект.Variables.Item("ФИО").Value = "" + СерверныеДанные.ФИО_Дательный; КомОбъект.Fields.Update(); КомОбъект.Application.Visible = Истина; ИмяБезРасширения = Лев(имяВременногоФайла, СтрНайти(имяВременногоФайла,".") - 1); имяВременногоФайла = ИмяБезРасширения+".pdf"; КомОбъект.SaveAs(имяВременногоФайла, 17, False, "", True, "", False, False, False, False, False); КомОбъект.Close(); Word = Неопределено; но все стопорится на диалоговом окне "сохранить как", при этом я вижу в папке, что сохранение уже отработало и файл в pdf создан так, как надо |
|||
3
Garykom
гуру
30.03.20
✎
17:25
|
(2) и что в этом окне написано? что пишет если нажать сохранить? вот убери ошибку
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |