OfficeTemplate сохранить word-файл как PDF

Clarion, Clarion 7

Модератор: Дед Пахом

Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Ответить
Аватара пользователя
morkovin
Ветеран
Сообщения: 908
Зарегистрирован: 20 Июль 2005, 14:53
Откуда: Volgograd, Russia
Благодарил (а): 2 раза
Поблагодарили: 3 раза
Контактная информация:

OfficeTemplate сохранить word-файл как PDF

Сообщение morkovin »

Как задать в OfficeTemplate команду сохранить файл как PDF?
WBR, morkovin
Аватара пользователя
morkovin
Ветеран
Сообщения: 908
Зарегистрирован: 20 Июль 2005, 14:53
Откуда: Volgograd, Russia
Благодарил (а): 2 раза
Поблагодарили: 3 раза
Контактная информация:

OfficeTemplate сохранить word-файл как PDF

Сообщение morkovin »

Решение найдено!
Это макрос, который встроен в 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
Это Clarion после обычной генерации DOC-файла шаблонами ОТ:

Код: Выделить всё

    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 
Пришлось делать через макрос, т.к. OT почему-то не отрабатывает метод
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
Ответить