是否有任何选项、插件或第三方工具可以使 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 转换器