Excel嵌入式Word文档多次导出PDF时如何追加至单个文件？

嘿，我来帮你搞定这个需求——你现在的代码每次导出单独的PDF，而我们需要把每次更新后的Word文档内容都追加到同一个PDF文件里对吧？

首先得说清楚：Word的ExportAsFixedFormat方法本身没有直接支持追加的参数，不过我们有两个靠谱的方案，其中第一个用PrintOut方法的方案最直接，完全匹配你想要的Append:=True效果。

方案一：用Word.PrintOut 直接实现PDF追加 #

这个方案利用系统自带的「Microsoft Print to PDF」虚拟打印机，通过PrintToFile:=True和Append:=True参数，直接把每次更新后的文档内容追加到同一个PDF里，不用事后合并，效率很高。

修改后的完整VBA代码如下：

Sub PrintItToSinglePDF()
    Dim objWord As Word.Application
    Dim objDoc As Word.Document
    Dim i As Integer
    Dim outputPDFPath As String
    
    ' 定义最终合并PDF的路径和文件名
    outputPDFPath = ThisWorkbook.Path & "\Results\CombinedSalaryReports.pdf"
    
    ' 激活嵌入式的Word文档
    ActiveSheet.OLEObjects("SalaryPaycheck").Activate
    Set objWord = GetObject(, "Word.Application")
    objWord.Visible = False
    Set objDoc = objWord.ActiveDocument
    
    ' 关闭警告和屏幕更新，让运行更流畅
    objWord.Application.DisplayAlerts = wdAlertsNone
    objWord.Application.ScreenUpdating = False
    
    ' 先删掉已存在的旧PDF，避免追加到旧内容上
    If Dir(outputPDFPath) <> "" Then
        Kill outputPDFPath
    End If
    
    For i = 1 To 10
        ' 更新关联的单元格值
        Range("Key").Value = i
        ' 刷新Word文档里的所有链接域
        objDoc.Fields.Update
        
        ' 核心：用PrintOut打印到PDF，实现追加
        objDoc.PrintOut _
            Background:=False, _
            Append:=IIf(i = 1, False, True), ' 第一次创建新文件，之后都追加
            PrintToFile:=True, _
            OutputFileName:=outputPDFPath, _
            PrinterSettings:=objWord.ActivePrinter
        
        ' 如果你系统默认打印机不是Microsoft Print to PDF，就把下面这行注释去掉手动指定
        ' objWord.ActivePrinter = "Microsoft Print to PDF"
    Next i
    
    ' 清理对象，释放资源
    objWord.Quit
    Set objDoc = Nothing
    Set objWord = Nothing
    
    MsgBox "所有报告已经成功合并到单个PDF里啦！", vbInformation
End Sub

关键细节解释： #

• Append:=IIf(i = 1, False, True)：第一次循环时创建新的PDF文件，后面的循环就把内容追加进去。如果不做这个判断，当文件已经存在时第一次打印也会追加，但我们提前删掉了旧文件，其实直接用Append:=True也可以，加个判断更稳妥。
• 「Microsoft Print to PDF」打印机：确保你的系统里有这个虚拟打印机（Windows 10及以上默认自带），如果默认打印机不是它，记得手动指定代码里的那行。
• 删除旧文件：循环开始前先删掉目标PDF，避免把新内容追加到之前的旧报告里。

方案二：先导出多个PDF再合并（备选方案） #

如果因为某些原因没法用虚拟打印机，比如系统没有这个打印机，那可以先导出多个单独的PDF，再用VBA把它们合并起来。不过这个方案需要你安装Adobe Acrobat Pro（注意是Pro，不是免费的Reader），因为要用到它的API。

代码示例如下：

Sub ExportAndMergePDFs()
    Dim objWord As Word.Application
    Dim objDoc As Word.Document
    Dim i As Integer
    Dim tempPDFPath As String
    Dim outputPDFPath As String
    Dim acroApp As Object
    Dim acroPDDoc As Object
    Dim tempPDDoc As Object
    
    outputPDFPath = ThisWorkbook.Path & "\Results\CombinedSalaryReports.pdf"
    
    ' 激活嵌入式Word文档
    ActiveSheet.OLEObjects("SalaryPaycheck").Activate
    Set objWord = GetObject(, "Word.Application")
    objWord.Visible = False
    Set objDoc = objWord.ActiveDocument
    
    objWord.Application.DisplayAlerts = wdAlertsNone
    objWord.Application.ScreenUpdating = False
    
    ' 删除旧的合并文件
    If Dir(outputPDFPath) <> "" Then
        Kill outputPDFPath
    End If
    
    ' 初始化Acrobat对象
    Set acroApp = CreateObject("AcroExch.App")
    Set acroPDDoc = CreateObject("AcroExch.PDDoc")
    
    For i = 1 To 10
        Range("Key").Value = i
        objDoc.Fields.Update
        
        ' 导出单个临时PDF
        tempPDFPath = ThisWorkbook.Path & "\Results\rep" & i & ".pdf"
        objDoc.ExportAsFixedFormat _
            outputfileName:=tempPDFPath, _
            exportformat:=wdExportFormatPDF, _
            openafterexport:=False, _
            optimizefor:=wdExportOptimizeForPrint, _
            Range:=wdExportAllDocument, _
            Item:=wdExportDocumentContent, _
            includedocprops:=False, _
            keepirm:=True, _
            createbookmarks:=wdExportCreateNoBookmarks, _
            docstructuretags:=True, _
            bitmapmissingfonts:=True, _
            useiso19005_1:=False
            
        ' 合并PDF
        If i = 1 Then
            ' 第一个PDF作为基础文档
            acroPDDoc.Open tempPDFPath
            acroPDDoc.Save 1, outputPDFPath
        Else
            Set tempPDDoc = CreateObject("AcroExch.PDDoc")
            tempPDDoc.Open tempPDFPath
            ' 把临时PDF插入到主文档的末尾
            acroPDDoc.InsertPages acroPDDoc.GetNumPages - 1, tempPDDoc, 0, tempPDDoc.GetNumPages, False
            tempPDDoc.Close
            Set tempPDDoc = Nothing
            acroPDDoc.Save 1, outputPDFPath
        End If
        
        ' 删除临时PDF文件
        Kill tempPDFPath
    Next i
    
    ' 清理Acrobat对象
    acroPDDoc.Close
    Set acroPDDoc = Nothing
    acroApp.Exit
    Set acroApp = Nothing
    
    ' 清理Word对象
    objWord.Quit
    Set objDoc = Nothing
    Set objWord = Nothing
    
    MsgBox "PDF合并完成！", vbInformation
End Sub

注意事项： #

• 这个方案需要安装Adobe Acrobat Pro，并且在VBA编辑器里要引用Adobe Acrobat xx.x Type Library（点击「工具」→「引用」找到它）。
• 运行过程中会生成临时PDF文件，之后会自动删除，不用担心残留文件。

个人推荐优先用方案一，因为它不需要额外装软件，操作简单，运行效率也更高～

内容的提问来源于stack exchange，提问作者Tuberose