使用 VBA 將多份 Word 文檔合並為一份文檔

VBA 可以用來合並多份文檔。

在運行代碼之前，請注意以下內容：

1. 將所有待合並文檔放入同一個文件夾中，對這些文檔進行排序和重命名，例如 part 1、part 2 等。如果不對這些文檔進行排序，合並后文檔的內容將會產生混亂或者丟失。

2. 打開第一個文檔，運行以下代碼。

第一步：按“Alt-F11”，打開 Microsoft Visual Basic for Application 窗口；

第二步：單擊“插入”標簽頁中的“模塊”命令，將以下 VBA 代碼復制粘貼到模塊窗口中；

第三步：單擊“運行”按鈕，應用這段 VBA 代碼。

多個文檔合並 VBA 代碼：

Sub MergeDocuments()
Application.ScreenUpdating = False
MyPath = ActiveDocument.Path
MyName = Dir(MyPath & "\" & "*.doc")
i = 0
Do While MyName <> ""
If MyName <> ActiveDocument.Name Then
Set wb = Documents.Open(MyPath & "\" & MyName)
Selection.WholeStory
Selection.Copy
Windows(1).Activate
Selection.EndKey Unit:=wdLine
Selection.TypeParagraph
Selection.Paste
i = i + 1
wb.Close False
End If
MyName = Dir
Loop
Application.ScreenUpdating = True
End Sub

請注意：文檔必須按順序進行重命名，否則文檔順序可能會被打亂。