如何使用VBA-excel匯總不同的Word文件？

Question

我有大量的Word文件，我希望將這些文件匯總到一個文件中。 為此，我使用Excel中的表格來選擇要匯總的文件。 我已經在Excel中編寫了代碼，因為我希望Word文件不包含宏。

我已成功打開，復制和粘貼聚合文件，但是粘貼總是刪除以前的內容。 這意味着我只結束了最后復制的單詞文件的內容。 我相信我需要指出的是粘貼應該在文件末尾進行，但是不幸的是還沒有成功。

    'copy the text in the Service Document
    ServiceDoc.Activate
    ServiceDoc.Range.Copy
    'Paste into the aggregate document
    MainDoc.Activate
    MainDoc.Range.MoveEnd
    MainDoc.Range.Paste

Answer 1

嘗試這樣的事情：

With MainDoc
    .Activate
    .Content.Select 
    .Application.Selection.Collapse wdCollapseEnd
    .Application.Selection.Paste
End With