Преобразование *.doc(x) В *.pdf

Тема в разделе "Lotus - Программирование", создана пользователем Bob84, 17 окт 2013.

  1. Bob84

    Bob84 Active Member

    Регистрация:
    16 май 2012
    Сообщения:
    38
    Симпатии:
    0
    Здравствуйте.
    Преобразовываю doc(x) файлы из Лотуса в pdf посредством

    Код (LotusScript):
    Call wordDoc.ExportAsFixedFormat( filepath,_ 'OutputFileName
    wdExportFormatPDF,_ 'ExportFormat
    True,_ 'OpenAfterExport
    wdExportOptimizeForPrint,_ 'OptimizeFor
    wdExportAllDocument,_ 'Range
    1,_ 'From
    1,_ 'To
    wdExportDocumentContent,_ 'Item
    True,_ 'IncludeDocProps
    True,_ 'KeepIRM
    wdExportCreateNoBookmarks,_ 'CreateBookmarks
    True,_ 'DocStructureTags
    True,_ 'BitmapMissingFonts
    False _ 'UseISO19005_1
    )
    Все хорошо, но после преобразования иногда книжная ориентация страницы меняется на альбомную. Когда тот же документ сохраняю из ворда в pdf - все нормально. Макрос при этом генериется с такими же параметрами как и выше. Сам ворд ориентацию страниц при открытии не меняет, это я проверял. Может кто-то сталкивался с таким?
     
  2. garrick

    garrick Lotus team
    Lotus team

    Регистрация:
    26 окт 2009
    Сообщения:
    770
    Симпатии:
    50
    По-моему в "сохранении" нет никаких параметров относительно ориентации страницы... Это всё где-то раньше, может быть зависит от дефолтных настроек Word или выбранного по умолчанию принтера. Ставьте принудительно нужную ориентацию перед сохранением документа.
     
  3. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Регистрация:
    27 авг 2008
    Сообщения:
    6.073
    Симпатии:
    299
    Код (LotusScript):
        If Not forceWord Then
    ext={pdf}
    On Error Goto DOC
    CloseByFileName(fnam(0) & "." & ext)
    worddoc.saveas2 fname & "." & ext, wdFormatPDF
    Print {Saved as PDF}
    worddoc.Application.Quit False
    Set worddoc=Nothing
    Goto CMN
    End If
    OLD:
    forceWord=False
    ext=tmpext
    On Error Goto ErrH
    worddoc.saveas(fname & "." & ext)
    Goto CMN
    DOC:
    RaiseError
    Resume OLD
    CMN:
    никто на повороты страниц еще не жаловался
    МСявость рОзлива 2010
     
  4. Bob84

    Bob84 Active Member

    Регистрация:
    16 май 2012
    Сообщения:
    38
    Симпатии:
    0
    При такой реализации при попытке открыть созданный пдф файл получил сообщение:
     
  5. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Регистрация:
    27 авг 2008
    Сообщения:
    6.073
    Симпатии:
    299
    выкинуть старый/глюкавый/дырявый адобаридер :)
    попробуйте открывать через foxitreader
     
  6. Bob84

    Bob84 Active Member

    Регистрация:
    16 май 2012
    Сообщения:
    38
    Симпатии:
    0
    Контстанту неправильно указал, работает. Допишу только код для открытия и все. Спасибо
     
  7. savl

    savl Lotus team
    Lotus team

    Регистрация:
    28 окт 2011
    Сообщения:
    2.051
    Симпатии:
    146
    Вот вот...
    Заменить AR на FR это конечно решение, но теперь на все компы в организации его ставить...
    Особенно дизайнерам на Mac, если они есть... А спасибо они скажут за это, уж поверте.

    Чтобы AR не ругался, по факту, MS рекомендует использовать именно ExportAsFixedFormat
    И не просто так сделали они отдельную функцию, а не save as...
    К тому же в записи макроса пишется именно ExportAsFixedFormat, со слов автора (я не проверял)
    И работает это только после установки надстройки для офиса, которую MS и предлагают всегда ставить.

    Что касается альбомной страницы, надо смотреть документ word.
    Все сохраняется относительно документа, могут влиять настройки принтера, это не факт но возможно.
    А в Word можно делать различные ориентации страниц для всего документа, особенно если там большая таблица.
    Забавно она будет смотреться в портретной ориентации...
     
  8. Bob84

    Bob84 Active Member

    Регистрация:
    16 май 2012
    Сообщения:
    38
    Симпатии:
    0
    При использовании метода saveas2 результат тот же.
    Какие именно настройки могут влиять? И при чем тут принетр, если я в файл сохраняю?
    Сам Word перед сохранением точно с документов ничего не делает, это я проверял.
     
  9. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Регистрация:
    27 авг 2008
    Сообщения:
    6.073
    Симпатии:
    299
    че там писать-то :)
    Код (LotusScript):
        fname=Replace(fname,{/},{\})'Windows specific
    If ( rtitem.Type = RICHTEXT ) Then
    Call rtitem.EmbedObject( EMBED_ATTACHMENT,{} , fname, fnam(0))
    Call doc.Save(True, False)
    If worddoc Is Nothing Then
    Dim res, run As String
    run={cmd.exe /c "start } &fname &{"}
    Print {Shell calling...}, run
    res=Shell(run)
    End If
    End If
    Добавлено:
    не нужет никакой бадоба на Маке, уж поверьте (я лет 8 с маками) штатный вьюер как в линухах так и в маке, это тока в винде забота о юзерах такая оригинальная :)
    а что там наворотил МС и что они рекомендуют - надо меньше "слушать" - ничего хорошего, для сторонних форматов, они не посоветуют ;)
     
  10. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Регистрация:
    27 авг 2008
    Сообщения:
    6.073
    Симпатии:
    299
    уж опять же, поверьте, у МС все череж ж..пу настраивается, надысь прибежали с хухэлем (экселем) - грят - нецветной ПДФ получаецо...
    но мы-то знаем как работает мосх прогерров МС, я сразу сказал - настройки печати ковырять надо, так и оказалось (настройки страницы и там...)
    а в МС ресурсах послали в пэдж лэйаут, и разумеется - там ничего путного не получилось (все серое было - неактивные кнопки) :)

    и так у них куда не ткнись (в их мануалах) - редкостно бестолковые
     
  11. Bob84

    Bob84 Active Member

    Регистрация:
    16 май 2012
    Сообщения:
    38
    Симпатии:
    0
    До сохранения в пдф, был код который в колонтитулы документа добавлял две строки разделенные chr(13). Вот когда убрал chr(13), то проблема пропадает.
     
Загрузка...
Похожие Темы - Преобразование doc(x) pdf
  1. WolfEater
    Ответов:
    0
    Просмотров:
    773
  2. jager
    Ответов:
    1
    Просмотров:
    1.293
  3. PahaStar
    Ответов:
    0
    Просмотров:
    984
  4. PahaStar
    Ответов:
    0
    Просмотров:
    844
  5. ask40
    Ответов:
    0
    Просмотров:
    965

Поделиться этой страницей