如何在 Word 中合併多個文件並保持格式？

Author: Amanda Li Last Modified: 2025-08-06

在 Microsoft Word 中將多個文件合併成一個文件是一項常見的任務，但使用某些方法時，要確保原始格式得以保留可能會很困難。雖然您可以手動打開每個文件並通過複製粘貼來合併它們，但這種方法耗時且可能導致格式不一致。幸運的是，有一些方法可以幫助簡化合併過程：

使用「插入文件中的文字」選項合併多個文件
使用 Kutools for Word 批量合併多個文件而不丟失格式
使用 VBA 批量合併多個文件而不丟失格式

使用「插入文件中的文字」選項將多個文件合併為一個文件

您可以使用 Word 中的「插入文件中的文字」功能將多個文件合併為一個文件。但是，請注意，此方法可能會導致合併後的文件格式丟失。

創建一個新的 Word 文件，您希望在此處合併其他文件。然後點擊插入 > 物件 > 插入文件中的文字。
在 插入文件 對話框中：
1. 打開包含要合併文件的文件夾。
2. 選擇要合併的文件。
3. 點擊插入按鈕。
提示： 按住 Ctrl 鍵逐一選擇多個文件，或按住 Shift 鍵通過點擊第一個和最後一個文件來選擇多個相鄰的文件。
如果要合併的文件保存在不同的文件夾中，根據需要重複步驟 1-2。

注意：除非逐個插入文件，否則您無法重新排列合併文件中的文件順序。

使用 Kutools for Word 合併多個文件而不丟失格式

安裝 Kutools for Word 後，無需創建新的空白文件或將所有文件放在同一文件夾中。借助 Kutools 的合併功能，您可以快速將多個文件合併到 Word 中而不會丟失格式。請按照以下步驟操作：

Kutools for Word，內建人工智慧 🤖，提供超過 100 種實用功能，簡化您的工作流程。

立即下載

點擊 Kutools Plus > 合併。
在打開的 合併文件 對話框中，添加要合併的文件：
1. 點擊 添加文件 按鈕。
2. 在瀏覽對話框中，導航到包含要合併文件的文件夾。
3. 按住 Ctrl 或 Shift 鍵選擇多個文件。
4. 點擊確定按鈕。
提示：
- 要從不同文件夾中合併文件，請重複此步驟逐一添加它們。
- 您也可以使用 添加文件夾 按鈕批量添加保存在同一文件夾中的文件。
回到 合併文件 對話框中：
1. 使用上移和下移按鈕安排文件順序。
2. 使用 文件間分隔符 下拉列表指定文件之間的分隔方式。
3. 點擊合併按鈕。

所選的 Word 文件將被合併到一個新文件中，並保留其原始格式，如下圖所示：

How will the documents be merged

Kutools for Word 是終極的 Word 增益工具，能夠簡化您的工作並提升文檔處理技能。立即獲取！

多個 Word 文件的分頁瀏覽與編輯，就像在 Chrome 和 Edge 中一樣！

就像在 Chrome、Safari 和 Edge 中瀏覽多個網頁一樣，Office Tab 讓您可以在單一視窗中開啟並管理多個 Word 文件。現在只需點擊標籤即可輕鬆切換文件！
立即免費試用 Office Tab！

Browse multiple word documents in one window just like in Chrome

使用 VBA 合併多個文件而不丟失格式

或者，您可以使用 VBA 在 Word 中合併多個文件。

將所有要合併的 Word 文件移至同一文件夾中。
以一系列序列名稱重命名 Word 文件。
1. 右鍵單擊文件並從上下文菜單中選擇 重命名 ，然後輸入新名稱，例如 Part1。
2. 重複上述操作以重命名其他文件。
雙擊打開您希望放置在合併文件開頭的文件。
同時按下 Alt + F11 鍵打開 Microsoft Visual Basic for Application 窗口。

點擊插入 > 模組，然後將以下 VBA 代碼粘貼到模組窗口中：

Sub MergeDocuments()
Application.ScreenUpdating = False
MyPath = ActiveDocument.Path
MyName = Dir(MyPath & "\" & "*.docx")
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

注意：此 VBA 只能合併文件擴展名為 docx 的 Word 文件。如果您需要合併 .doc 文件，請將代碼 MyName = Dir(MyPath & "\" & "*.docx") 中的 docx 替換為 doc。