Место общения программистов, форум разработчиков БД на Clarion
https://www.forum.clarionlife.net/
Глюк там, СЭР, при обработке вставленных и в текст и отмасштабированных картинках... УВЫ...Игорь Столяров писал(а): 25 Март 2022, 19:54 Можно сохранять из Microsoft Word документ в PDF - см. табличку с доступными форматами в прошлом ответе.
Никогда такого не видел ... может быть зависит от версии офисного пакета ?Губин Игорь писал(а): 26 Март 2022, 14:43 Глюк там, СЭР, при обработке вставленных и в текст и отмасштабированных картинках
У нас на разных пакетах и компьютерах. При печати, если файл создавался через стандартные драйвера мелкомягких, картинки как-то странно себя ведут - приходится использовать "печатать как изображение", иначе картинки (сплошь png - иконки в описание) начинают вести себя как на испорченном телевизоре. А есть одна картинка, скан офисной печати, которую, вообще, обрезает.Игорь Столяров писал(а): 26 Март 2022, 15:12 икогда такого не видел ... может быть зависит от версии офисного пакета ?
Не проблема, мне оно не надо ...
Мешает!SergioRaguzini писал(а): 25 Март 2022, 19:22 Есть еще одна, непонятная для меня ситуация при работе с Word, когда после экспорта отчета в файл MsWord и дальнейшим PROP:Deactivate, в Диспетчере задач Windows остается работающим в фоне процесс winword.exe хотя окно Word закрыто и внешне вроде бы это ничему не мешает.
Код: Выделить всё
! Close all Open MS XLS Instances
case message('Are you sure you want to close all Microsoft Excel Instances?','SYSTEM MESSAGE',ICON:Question,'&Yes|&No',2)
of 1
run('pskill excel.exe',1)
message('All Microsoft Excel Instances closed','SYSTEM MESSAGE')
of 2
endНе обладая даром телепатии - не могу прокомментировать этот наезд ...
Код: Выделить всё
WordControl{'Application.ActiveDocument.Close'} ! У Вас есть код до этого места
WordControl{'Application.Quit'}
WordControl{Prop:ReportException} = False
Loop 5 times
WordControl{PROP:Deactivate}
end
Loop 5 times
Destroy(WordControl) ! уничтожили OLE-контрол
end
run('pskill WINWORD.exe',1)
У меня компелятор не знает что такое: "WordControl"Игорь Столяров писал(а): 28 Март 2022, 12:33 Попробуйте пожалуйста без самодеятельности выполнить точно вот такой код:
WordControl{'Application.ActiveDocument.Close'}
..........
Это название объекта Microsoft Word.
Игорь Столяров писал(а): 28 Март 2022, 13:00 Просто замените пожалуйста "WordControl" на "feqOLE" ...
Код: Выделить всё
!==============================================================================================================================
if CONF:Close_File then ! Закроем документ если надо
!feqOLE{'Documents.Close()'} ! Закрываем документ
!run('pskill WINWORD.exe',1)
feqOLE{'Application.ActiveDocument.Close'} ! У Вас есть код до этого места
feqOLE{'Application.Quit'}
feqOLE{Prop:ReportException} = False
Loop 5 times
feqOLE{PROP:Deactivate}
end
Loop 5 times
Destroy(feqOLE) ! уничтожили OLE-контрол
end
end
!==============================================================================================================================То как вы посоветовали работает нормально спасибо.... вопрос в догонку:ingasoftplus писал(а): 28 Март 2022, 11:39 У нас тупо работает схема (на примере екселя, но для ворда тоже пойдет):
Код: Выделить всё
Loc:SaveFileName = Clip(CONF:Path_Save_WORD) &'вх.'& Clip(UCH:Number) &'.doc' ! Каталог для хранения файлов + имяБез цикла тоже можно:
Код: Выделить всё
Destroy(feqOLE) ! уничтожили OLE-контрол
Destroy(feqOLE) ! уничтожили уже уничтоженный OLE-контрол
Destroy(feqOLE) ! уничтожили уже дважды уничтоженный OLE-контрол
Destroy(feqOLE) ! уничтожили уже трижды уничтоженный OLE-контрол
Destroy(feqOLE) ! уничтожили уже четырежды уничтоженный OLE-контрол, прямо зомби апокалипсис