Question

我在Excel工作表中有一个嵌入式MS-Word文档，其名称为SalaryPaycheck。

MS-word文档包含几个到工作表单元格的链接字段。

我已多次更新链接的单元格并执行上述字段的更新。

然后我需要在每次更新字段时执行导出嵌入式MS-Word文档，如PDF。

所以我需要将所有导出的文件附加到单个pdf文件中。

我使用下面的代码：

Sub PrintIt()

    Dim objWord As Word.Application
    Dim objDoc As Word.Document
    Dim i as Integer

    ActiveSheet.OLEObjects("SalaryPaycheck").Activate
    Set objWord = GetObject(, "Word.Application")
    objWord.Visible = False
    Set objDoc = objWord.ActiveDocument
    objWord.Application.DisplayAlerts = wdAlertsNone
    objWord.Application.ScreenUpdating = False

    For i = 1 to 10

        Range("Key").value = i

        objDoc.Fields.Update

        objDoc.ExportAsFixedFormat _
            outputfileName:=ThisWorkbook.path & "\Results\" & "rep" & i & ".pdf" _
            , exportformat:=wdExportFormatPDF _
            , openafterexport:=False _
            , optimizefor:=wdExportOptimizeForPrint _
            , Range:=wdExportAllDocument _
            , Item:=wdExportDocumentContent _
            , includedocprops:=False _
            , keepirm:=True _
            , createbookmarks:=wdExportCreateNoBookmarks _
            , docstructuretags:=True _
            , bitmapmissingfonts:=True _
            , useiso19005_1:=False
    Next i

    objWord.Quit
    Set objDoc = Nothing
    Set objWord = Nothing

End Sub 'Print it

如何使用objDoc.SaveAs2或objDoc.ExportAsFixedFormat（如上所示）与objDoc.PrintOut' whith 'Append:=True参数相同？

或如何使用.PrintOut使用＆＃39;附加：= True＆＃39;这种情况下的论证（PDF）安静地工作（使用OutputFileName:=path & filename和PrintToFile:=True）

Answer 1

如在另一个question中所述，只需将文档附加到单词

中

{{1}}

导出单个pdf文件中附加的多个Word文档

1 个答案: