OfficeTemplate сохранить word-файл как PDF
Модератор: Дед Пахом
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
- morkovin
- Ветеран
- Сообщения: 908
- Зарегистрирован: 20 Июль 2005, 14:53
- Откуда: Volgograd, Russia
- Благодарил (а): 2 раза
- Поблагодарили: 3 раза
- Контактная информация:
OfficeTemplate сохранить word-файл как PDF
Как задать в OfficeTemplate команду сохранить файл как PDF?
WBR, morkovin
- morkovin
- Ветеран
- Сообщения: 908
- Зарегистрирован: 20 Июль 2005, 14:53
- Откуда: Volgograd, Russia
- Благодарил (а): 2 раза
- Поблагодарили: 3 раза
- Контактная информация:
OfficeTemplate сохранить word-файл как PDF
Решение найдено!
Это макрос, который встроен в doC-файл
Это Clarion после обычной генерации DOC-файла шаблонами ОТ:
Пришлось делать через макрос, т.к. OT почему-то не отрабатывает метод
Это макрос, который встроен в doC-файл
Код: Выделить всё
Sub Silent_save_to_PDF()
'
' Silent Save_to_PDF Macro
'
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
Replace(ActiveDocument.FullName, ".doc", ".pdf"), _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, Item:= _
wdExportDocumentContent, IncludeDocProps:=False, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
End Sub
Код: Выделить всё
MSWord18.CloseAllDocs()
!
MSWord18.OpenDoc(CLIP(LOC:SaveDocName))
MSWord18.RunMacro('Silent_save_to_PDF')
MSWord18.Save() !'1.pdf',17,'1461')
MSWord18.CloseAllDocs()
MSWord18.Quit()
!delete origin doc-file
IF Exists(CLIP(LOC:SaveDocName))=TRUE THEN
xDeleteFile(CLIP(LOC:SaveDocName))
!MESSAGE('OK!',1)
ELSE
! MESSAGE(CLIP(LOC:SaveDocName),'Failed!')
END
! now only pdf-file in folder
Save (STRING FileName,BYTE Format,STRING Password,,)
FileName: A string constant, variable or expression containing the file name.
Format: An integer constant, variable or expression indicating the format in which the document is saved. Could be any of the following equates:
wdFormatDocument
wdFormatTemplate
wdFormatText
wdFormatTextLineBreaks
wdFormatDOSText
wdFormatDOSTextLineBreaks
wdFormatRTF
wdFormatUnicodeText
wdFormatEncodedText
wdFormatHTML
WBR, morkovin