保存时自动将办公文档导出为 PDF?

保存时自动将办公文档导出为 PDF?

是否有任何选项、插件或第三方工具可以使 Word 或 Powerpoint 文档在保存时自动以 PDF(或其他格式)导出到特定路径?

我之所以问这个问题,是因为我有几份 .docx 格式的简历,我会定期更新。每次更改时,我都必须重新导出为 PDF 格式,并将 PDF 文件放在特定文件夹中。

我宁愿只按“保存”并让 PDF 文件自动更新。

有什么东西可以实现这个目标吗?

答案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

我猜你的问题是故意留得很开放的,因此,我以同样的方式留下了答案 - 玩得开心,破解它,让它为你需要它做的事情而工作!

答案2

从 Office 2007 开始,支持保存为 PDF。因此,应该可以创建一个宏,例如,触发该宏on Save可以完全按照您的要求执行操作。

答案3

我怀疑是否存在类似的东西。原因是几乎没有人会觉得它有用。MSWord 和 MSPowerPoint 是编辑器,它们有自己的默认文档格式。有一种方法可以将文档从 MSWord 和 MSPowerPoint 导出/打印为 PDF,但这只是一个选项,并不是默认选项。导出到特定文件夹也是不可能的。

最好的办法是创建一个批处理文件来帮你完成这项工作。但是你需要一个可以处理 .doc 和 .ppt 格式的命令行 PDF 转换器

相关内容