如何在 Word 中合并多个文档并保留原有格式？

作者Amanda Li修改日期2024-12-26

在 Microsoft Word 中将多个文档合并为一个文件是一项常见任务，但某些方法难以确保保留原始格式。虽然可以手动打开每个文档并逐一复制粘贴内容进行合并，但这种方式不仅耗时，还容易导致格式不一致。幸运的是，有多种高效方法可帮助您轻松简化这一合并过程：

使用“文件中的文字”选项合并多个文档
使用 Kutools for Word 批量合并多个文档且不丢失格式
使用 VBA 批量合并多个文档且不丢失格式

使用“文件中的文字”选项将多个文档合并为一个

您可以使用 Word 中的文件中的文字功能，将多个文档轻松合并为一个。但请注意，此方法可能会导致格式丢失，务必提前备份！

创建一个新 Word 文档用于合并其他文档，然后单击插入 > 对象 > 文件中的文字。
在插入文件对话框中：
1. 打开包含待合并文档的文件夹。
2. 请选择您要合并的文档。
3. 单击插入按钮。
提示：按住 Ctrl 键可逐个选择多个文档，或按住 Shift 键，单击首尾文档即可快速选中多个相邻文档。
如果要合并的文档位于不同文件夹中，请根据需要重复步骤 1-2.

注意：除非逐一插入文档，否则无法对合并后的文件中的文档重新排序。

使用 Kutools for Word 将多个文档合并为一个且不丢失格式

安装 Kutools for Word 后，无需创建新的空白文档，也无需将所有文件放入同一文件夹。借助 Kutools for Word 的合并功能，您即可在 Word 中快速将多个文档合并为一个，且格式完整保留。请按以下步骤操作：

Kutools for Word，配备人工智能🤖，提供 100 多项实用功能，助您简化任务。

立即下载

单击 KUTOOLS PLUS 中的合并。
在打开的文档合并对话框中，添加要合并的文档：
1. 单击添加文件按钮。
2. 在“浏览”对话框中，导航至包含要合并文档的文件夹。
3. 按住 Ctrl 键或 Shift 键，即可选择多个文档。
4. 单击确定按钮。
提示：
- 要从不同文件夹中文档合并，请重复此步骤逐一添加。
- 您也可以使用目录按钮，批量添加保存在单个文件中的文档。
返回到文档合并对话框中：
1. 使用上移和下移按钮，轻松调整文档顺序！
2. 使用文档间分隔符下拉列表，指定所需的文档间分隔符。
3. 单击合并按钮。

所选 Word 文档将被合并到一个新文档中，并保留其原始格式，如下图所示：

文档将如何合并

Kutools for Word 是终极的 Word 增效工具，可简化您的工作并提升文档处理技能。立即获取！

为多个 Word 文档带来媲美 Chrome 和 Edge 的标签式浏览与编辑体验！

就像在 Chrome、Safari 和 Edge 中浏览多个网页一样，Office Tab 让您能在同一个窗口中轻松打开并管理多个 Word 文档，只需单击文档标签即可快速切换！
立即免费试用 Office Tab！

在一个窗口中像使用 Chrome 一样浏览多个 Word 文档

使用 VBA 将多个文档合并为一个且不丢失格式

或者，您也可以借助 VBA 将多个 Word 文档轻松合并为一个。

将所有要合并的 Word 文档移至同一文件夹中。
将 Word 文档按顺序重命名为一系列连续名称。
1. 右键单击某个文档，从上下文菜单中选择重命名，然后输入新名称，例如 Part 1.
2. 重复此操作以重命名其他文档。
双击打开将置于合并文件开头的文档。
按下 Alt + F11 组合键，即可打开 Microsoft Visual Basic for Applications 窗口。

单击插入> 模块，然后将以下 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。