在MS Word中自动保存PDF

这个问题的灵感来自于我对LaTeX的使用，您通常会共享生成的PDF，而不是源文件。我想要我的 .docx 文档是源文件，PDF是要共享的文件。因此，我希望每次保存时，MS Word都会使用相同的文档名称制作PDF .docx 文件。有没有办法获得这样的行为？我在Mac上，但是能够在基于Windows的计算机上执行此操作也很好。

示例：如果我创建一个我命名的新文档 mydocument.docx，然后MS Word在名为的同一位置制作副本 mydocument.pdf。每次更改和保存时，PDF都将被保存和覆盖 mydocument.docx。有点 make 像行动？

你可以通过覆盖来实现这一目标 Save 和 SaveAs 当用户从编辑器激活这两个函数时调用的宏。这应该适用于支持直接以PDF格式保存的所有Word版本，即Microsoft Word 2007 SP2及更高版本（包括Word for Mac 2008及更高版本）。

下面是实现此目的的完整宏，将其插入到您的活动模板中，以便它可以与您创建的所有文档一起使用。

有一个错误处理程序，可以让您知道操作是否失败（很可能是因为您打开了PDF以锁定查看）。如果在捕获事件时遇到任何问题，您还可以尝试使用Application Events代替覆盖。

' Override File -> Save
Public Sub FileSave()

    ActiveDocument.Save
    SaveActiveDocumentAsPdf

End Sub

' Override File -> Save As...
Public Sub FileSaveAs()

    ActiveDocument.SaveAs
    SaveActiveDocumentAsPdf

End Sub

Sub SaveActiveDocumentAsPdf()

    On Error GoTo Errhandler

    If InStrRev(ActiveDocument.FullName, ".") <> 0 Then

        Dim strPath As String
        strPath = Left(ActiveDocument.FullName, InStrRev(ActiveDocument.FullName, ".") - 1) & ".pdf"

        ActiveDocument.SaveAs FileName:=strPath, FileFormat:=wdFormatPDF
    End If

    On Error GoTo 0

    Exit Sub

Errhandler:

    MsgBox "There was an error saving a copy of this document as PDF. " & _
    "Ensure that the PDF is not open for viewing and that the destination path is writable. Error code: " & Err

End Sub