Автоматически экспортировать офисные документы в PDF при сохранении?

Question

Есть ли какая-либо опция, плагин или сторонний инструмент, который может заставить документ Word или Powerpoint автоматически экспортироваться в PDF (или другой формат) в конкретную область при сохранении?

Я спрашиваю, потому что у меня есть несколько резюме в .docx, которые я регулярно обновляю. Каждый раз, когда я меняю их, я должен реэкспортировать их в PDF и поместить файл PDF в определенную папку.

Я бы предпочел просто нажать "сохранить" и автоматически обновлять PDF-файл.

Есть ли что-то, что может этого достичь?

Answer 1

Этот макрос немного взломан в своем текущем состоянии, но работает нормально, особенно если вы редактируете одни и те же несколько файлов снова и снова.

По сути, вам нужно запустить AddKeyBinding(), который будет регистрировать нажатия клавиш. Или добавьте это к загрузке в VBa.

Внутри AddKeyBinding вы можете видеть привязки и куда они тоже экспортируются ... Как видите, он ожидает ALT + 1, а затем экспортирует в SaveDaveCv ...

Я также добавил ALT+2, но не завершил макрос ...

Sub AddKeyBinding()
    With Application
         ' \\ Do customization in THIS document
        .CustomizationContext = ThisDocument

         ' \\ Add keybinding to this document Shorcut: Alt+1
        .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKey1), _
        KeyCategory:=wdKeyCategoryCommand, _
        Command:="SaveDaveCv"

         ' \\ Add keybinding to this document Shorcut: Alt+2
        .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKey2), _
        KeyCategory:=wdKeyCategoryCommand, _
        Command:="SaveOtherCv" 'You need to do this
    End With
End Sub


 ' \\ Test sub for keybinding
Sub SaveDaveCv()

    ActiveDocument.ExportAsFixedFormat OutputFileName:="C:\Users\DRook\Desktop\MyCv.pdf", ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportAllDocument, Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:=True, UseISO19005_1:=False


    MsgBox "Saved", vbInformation, "Succes"

End Sub

Ваш вопрос, я думаю, был оставлен совершенно открытым специально, поэтому я оставил ответ таким же образом - получайте удовольствие, взламывайте его, заставляйте работать так, как вам нужно!

Answer 2

Начиная с Office 2007 поддерживается сохранение в формате PDF. Таким образом, должна быть возможность создать макрос, который, например, срабатывает on Save делает именно то, что вы хотите.

Answer 3

Я сомневаюсь, что есть что-нибудь подобное. И причина в том, что вряд ли кто-то найдет это полезным. MSWord и MSPowerPoint являются редакторами и имеют собственный формат документов по умолчанию. Существует способ экспортировать / распечатывать документы из MSWord и MSPowerPoint в PDF, но это всего лишь вариант, и по этой причине он не используется по умолчанию. И экспорт в определенную папку тоже не подлежит обсуждению.

Лучше всего создать пакетный файл, который сделает всю работу за вас. Однако вам понадобится PDF-конвертер командной строки, который будет обрабатывать форматы .doc и .ppt.