领导要你把20份Word合成一个?别Ctrl+C/V了,这招1分钟搞定!

你是否也曾被这样的需求折磨过：项目结项了，领导让你“把所有过程文档整合成一个完整的项目报告“；写论文的同学，导师要求“把你那几章内容合并到一个Word文件里“；做标书的朋友，同事们分别写了不同章节，最终需要汇总成一个完整的投标文件。

面对这种需求，大多数人的做法是：一份一份地打开源文件，Ctrl+A全选，Ctrl+C复制，切换到汇总文档，Ctrl+V粘贴，再手动加个分页符……20份文档下来，不仅手酸眼花，还容易漏掉内容、搞乱格式。

今天教你一个VBA宏，一键把文件夹里所有Word文档按文件名顺序合并为一个文档，自动加分页符，全程自动化。

1.一、你经历过这些“合并文档“的崩溃瞬间吗？

痛点一：文件太多，纯手工悲剧。假设你有50份Word文档需要合并。手动操作意味着：打开50次文件、复制50次内容、切换50次窗口、添加49个分页符。按照平均每个文件2分钟的速度，总共需要近2小时。这还不算因为疲劳导致的遗漏和错误。

痛点二：格式混乱。不同文档的页面设置、页边距、字体样式可能各不相同。直接粘贴后，汇总文档变得“五颜六色“——有的段落是宋体、有的是微软雅黑、有的字号14、有的字号10.5。调整格式往往比合并本身更耗时。

痛点三：顺序搞错。手动操作时，很容易把“第三章“的内容插到了“第二章“前面，或者遗漏了某个文件。等到打印出来才发现，已经晚了。

痛点四：页眉页脚混乱。源文档如果各自有独立的页眉页脚（比如每章标题不同），直接粘贴到汇总文档后，页眉页脚要么消失、要么错乱，排版完全走了样。

2.二、手动合并 vs VBA自动合并

表1.2.1-1手动合并与VBA自动合并效率对比

看到这个对比，你会发现一个残酷的事实：合并10个以上的文档，手动操作不仅效率低，而且质量无法保证。VBA方案的价值在于，它从“手工作坊“升级到了“自动化流水线“。

3.三、操作步骤

3.1.步骤1：准备工作

将所有需要合并的Word文档（.docx格式）放入一个文件夹中。为了让合并顺序符合预期，建议使用带编号的文件名命名方式，例如“01-第一章.docx”、“02-第二章.docx”等。代码会按文件名的字母顺序自动排序。

3.2.步骤2：打开VBA编辑器

打开Word（任意空白文档即可），按Alt+F11进入VBA编辑器。点击菜单栏“插入“→”模块“，新建一个模块。

3.3.步骤3：粘贴代码

将本文提供的完整代码复制粘贴到模块窗口中。代码带有详细的中文注释，每个变量的功能都有说明。

3.4.步骤4：运行合并宏

关闭VBA编辑器，回到Word主界面。按Alt+F8打开宏列表，找到“批量合并Word文档“，点击运行。

3.5.步骤5：选择文件夹和选项

首先会弹出一个对话框，询问是否保留源文档的页眉页脚。一般情况下选择“否“（仅插入分页符）即可，这样汇总文档的页眉页脚会更统一。如果你的各章节有特殊的页眉页脚需要保留，选择“是“。

接着选择源文件所在的文件夹，确认后代码自动开始合并。完成后会自动弹出另存为对话框，让你选择汇总文档的保存位置和文件名。

4.四、完整VBA代码

以下是可以直接使用的完整代码：

‘ ============================================================
‘ 功能：批量合并Word文档
‘ 描述：将文件夹内所有Word文档按顺序合并为一个汇总文档
‘ 适用：Microsoft Word VBA
‘ 版本：1.0
‘ ============================================================

Sub 批量合并Word文档()

‘ — 变量声明 —
Dim 源文件夹路径 As String
Dim 当前文件名 As String
Dim 完整文件路径 As String
Dim 文件数量 As Long
Dim 已处理数量 As Long
Dim 合并文档 As Document
Dim 临时文档 As Document
Dim 插入位置 As Range
Dim 文件对话框 As FileDialog
Dim 保留页眉页脚 As VbMsgBoxResult
Dim 文件名称数组() As String
Dim 索引 As Long

‘ — 询问是否保留源文档的页眉页脚 —
保留页眉页脚 = MsgBox(“是否保留每个源文档的页眉页脚？” & vbCrLf & vbCrLf & _
“【是】= 保留页眉页脚（插入分节符）” & vbCrLf & _
“【否】= 不保留页眉页脚（仅插入分页符，推荐）“, _
vbYesNoCancel + vbQuestion, “合并选项设置“)

If 保留页眉页脚 = vbCancel Then
MsgBox “操作已取消。“, vbInformation, “提示“
Exit Sub
End If

‘ — 选择源文件夹 —
Set 文件对话框 = Application.FileDialog(msoFileDialogFolderPicker)
文件对话框.Title = “请选择包含Word文档的文件夹“

If 文件对话框.Show <> -1 Then
MsgBox “未选择文件夹，操作已取消。“, vbInformation, “提示“
Exit Sub
End If

源文件夹路径 = 文件对话框.SelectedItems(1) & “\”

‘ — 收集所有.docx文件并按文件名排序 —
文件数量 = 0
当前文件名 = Dir(源文件夹路径 & “*.docx”)

‘ 先统计数量，用于声明数组
Do While 当前文件名 <> “”
If Left(当前文件名, 1) <> “~” Then
文件数量 = 文件数量 + 1
End If
当前文件名 = Dir()
Loop

If 文件数量 = 0 Then
MsgBox “指定文件夹中没有.docx文档。“, vbExclamation, “提示“
Exit Sub
End If

‘ 重新读取文件名到数组
ReDim 文件名称数组(1 To 文件数量)
索引 = 0
当前文件名 = Dir(源文件夹路径 & “*.docx”)
Do While 当前文件名 <> “”
If Left(当前文件名, 1) <> “~” Then
索引 = 索引 + 1
文件名称数组(索引) = 当前文件名
End If
当前文件名 = Dir()
Loop

‘ — 按文件名排序（简单的冒泡排序） —
Dim 外层 As Long
Dim 内层 As Long
Dim 临时名称 As String
For 外层 = 1 To 文件数量 – 1
For 内层 = 外层 + 1 To 文件数量
If StrComp(文件名称数组(外层), 文件名称数组(内层), vbTextCompare) > 0 Then
临时名称 = 文件名称数组(外层)
文件名称数组(外层) = 文件名称数组(内层)
文件名称数组(内层) = 临时名称
End If
Next 内层
Next 外层

‘ — 关闭屏幕更新 —
Application.ScreenUpdating = False
Application.DisplayAlerts = False

‘ — 创建新的汇总文档 —
Set 合并文档 = Documents.Add

‘ 设置文档属性
合并文档.BuiltInDocumentProperties(“Title”) = “合并汇总文档“

‘ 添加汇总文档标题
With 合并文档.Content.Paragraphs(1).Range
.Text = “合并汇总文档” & vbCrLf & “生成日期：” & Format(Date, “yyyy年mm月dd日“)
.Style = 合并文档.Styles(“标题”)
End With

‘ 在标题后添加空行
With 合并文档.Content
.InsertParagraphAfter
.InsertParagraphAfter
End With

‘ — 逐个插入源文档 —
已处理数量 = 0

For 索引 = 1 To 文件数量

当前文件名 = 文件名称数组(索引)
完整文件路径 = 源文件夹路径 & 当前文件名

已处理数量 = 已处理数量 + 1

‘ 更新状态栏
Application.StatusBar = “正在合并 (” & 已处理数量 & “/” & 文件数量 & “): ” & 当前文件名

‘ — 错误处理 —
On Error Resume Next

Set 临时文档 = Documents.Open(完整文件路径, ReadOnly:=True)

If Err.Number <> 0 Then
Debug.Print “打开失败: ” & 当前文件名 & ” – 错误: ” & Err.Description
Err.Clear
On Error GoTo 0
GoTo 继续下一个
End If

On Error GoTo 0

‘ 定位到合并文档末尾
Set 插入位置 = 合并文档.Content
插入位置.Collapse Direction:=wdCollapseEnd

‘ 根据用户选择决定插入方式
If 保留页眉页脚 = vbYes Then
‘ 插入分节符（下一页），保留页眉页脚
插入位置.InsertBreak Type:=wdSectionBreakNextPage
Else
‘ 仅插入分页符
插入位置.InsertBreak Type:=wdPageBreak
End If

‘ 重新定位到末尾
Set 插入位置 = 合并文档.Content
插入位置.Collapse Direction:=wdCollapseEnd

‘ 将临时文档的全部内容复制到合并文档
On Error Resume Next
With 临时文档.Content
.Copy
End With
插入位置.Paste

If Err.Number <> 0 Then
Debug.Print “合并失败: ” & 当前文件名 & ” – 错误: ” & Err.Description
Err.Clear
End If

On Error GoTo 0

‘ 关闭临时文档
临时文档.Close SaveChanges:=False

‘ 清理剪贴板（可选）
‘ Application.CutCopyMode = False

继续下一个:
Next 索引

‘ — 保存合并文档 —
Dim 保存对话框 As FileDialog
Set 保存对话框 = Application.FileDialog(msoFileDialogSaveAs)
保存对话框.Title = “保存合并文档“
保存对话框.InitialFileName = “合并汇总文档_” & Format(Date, “yyyyMMdd”) & “.docx”

If 保存对话框.Show = -1 Then
On Error Resume Next
合并文档.SaveAs2 保存对话框.SelectedItems(1)
If Err.Number <> 0 Then
MsgBox “保存失败：” & Err.Description, vbCritical, “错误“
Else
MsgBox “合并完成！” & vbCrLf & vbCrLf & _
“源文件夹：” & 源文件夹路径 & vbCrLf & _
“合并文件数：” & 已处理数量 & vbCrLf & _
“保存位置：” & 保存对话框.SelectedItems(1), _
vbInformation, “合并结果报告“
End If
On Error GoTo 0
Else
MsgBox “未选择保存位置，合并文档未保存。“, vbExclamation, “提示“
End If

‘ — 恢复设置 —
Application.StatusBar = False
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

5.五、代码核心逻辑解析

5.1.文件名排序机制

代码首先用Dir函数遍历文件夹，将所有.docx文件名收集到一个数组中，然后使用冒泡排序算法按文本比较方式（vbTextCompare，不区分大小写）对数组进行排序。这样合并后的文档顺序就是按文件名字母/数字顺序排列的，确保“第一章“排在“第二章“前面。

5.2.分页符 vs 分节符

这是代码中一个很巧妙的设计。如果用户选择“不保留页眉页脚“，代码使用InsertBreak Type:=wdPageBreak插入普通分页符，新文档内容从下一页开始但共享页眉页脚。如果选择“保留页眉页脚“，则使用InsertBreak Type:=wdSectionBreakNextPage插入分节符，每个源文档成为一个独立的节，可以拥有各自独立的页眉页脚。

5.3.内容复制方式

代码使用.Content.Copy和Selection.Paste的方式将源文档的全部内容（包括文字、表格、图片、格式等）完整复制到汇总文档中。这种方法比逐段落读取和写入更高效，也更能保留原始格式。

5.4.文件对话框交互

代码使用了VBA内置的FileDialog对象来提供图形化的文件夹选择和文件保存交互。msoFileDialogFolderPicker用于选择源文件夹，msoFileDialogSaveAs用于指定合并文档的保存位置。这比让用户手动输入路径更加友好和不易出错。

6.六、使用注意事项与常见问题

表1.6.1-2常见问题与解决方法

7.七、扩展技巧

7.1.扩展一：在合并文档中添加目录

合并完成后，在汇总文档的开头位置插入自动目录：点击Word菜单“引用“→”目录“→”自动目录“。前提是各源文档的章节标题使用了“标题1″、“标题2″等样式，目录会自动识别并生成。

7.2.扩展二：指定合并顺序而非按文件名

如果你不想按文件名排序，而是希望按自定义顺序合并，可以修改代码中的排序逻辑。例如，添加一个Excel对照表，列出文件名的合并顺序，然后让VBA读取Excel表格来确定顺序。

7.3.扩展三：合并前预览文件列表

在代码的排序完成之后、开始合并之前，增加一个ListBox或MsgBox，将排序后的文件名列表展示给用户确认，确认无误后再执行合并操作。这多了一重“检查“步骤，避免错漏。

8.八、获取本文代码及素材

本文提供的完整VBA代码，以及用于测试的3份示例章节文档（项目背景、实施方案、预算说明），均可免费获取。

获取方式：关注本公众号，后台回复关键词“合并Word”，即可获取完整代码文件及测试素材包。

如果你觉得这篇文章对你有帮助，欢迎点赞、在看、转发给身边同样被“文档合并“困扰的同事和朋友。也欢迎在评论区分享你遇到过的文档合并难题，我会尽力解答！