я есть встроенный документ MS-Word в лист Excel, имя которого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 с аргументом "Append: = True" в этом случае (PDF), который работает тихо (используяOutputFileName:=path & filename а такжеPrintToFile:=True)