如何用VBA编辑器合并Word文档：详细教程

在实际办公中，我们经常需要将多个Word文档合并为一个。我将详细讲解如何通过VBA编辑器实现Word文档的自动合并。

前提：先将主文档另存为"docm宏格式"，将要合并的所有文档放在同一个文件夹内。

一、安装VBA编辑器

VBA编辑器是Word自带的工具，无需额外安装。以下是如何启用VBA编辑器：

打开Word文档。
点击菜单栏的"文件"→"选项"→"自定义功能区"。
在右侧勾选"开发工具"。
点击"确定"，此时菜单栏会出现"开发工具"选项卡。

二、编写VBA脚本

1. 打开VBA编辑器

方法一：按下键盘的Alt + F11。
方法二：点击菜单栏的"开发工具"→"Visual Basic"。

2. 添加新的模块

在VBA编辑器中，点击菜单栏的"插入"→"模块"。
粘贴以下代码：

vba 复制代码

Sub 合并Word文档()
    Dim dialog As FileDialog
    Set dialog = Application.FileDialog(msoFileDialogFolderPicker)
    
    dialog.InitialFileName = "选择文件夹"
    dialog.AllowMultiSelect = False
    
    If dialog.Show = -1 Then
        folderPath = dialog.SelectedItems(1)
    Else
        MsgBox "您没有选择文件夹"
        Exit Sub
    End If
    
    Dim fileName As String
    fileName = Dir(folderPath & "\*.docx")
    
    While fileName <> ""
        Application.Documents.Open folderPath & "\" & fileName
        Selection.WholeStory
        Selection.Copy
        Documents(1).Activate
        Selection.EndKey Unit:=wdStory
        Selection.Paste
        Application.Documents(2).Close
        fileName = Dir()
    Wend
    
    MsgBox "合并完成！"
End Sub

代码二（推荐）：

复制代码

Sub CountPagesOfDocs()
    Dim fd As FileDialog
    Dim aDoc As Document
    Dim i As Long
    Dim count As Long
    Dim nPageNumber As Long
    Dim originalWindowName As String
    
    originalWindowName = ActiveWindow.Caption
    
    nPageNumber = 0
    Set fd = Application.FileDialog(FileDialogType:=msoFileDialogOpen)
    With fd
        .AllowMultiSelect = True
        .Title = "请选择要处理的一个或多个 Word 文档"
        .Filters.Add "Word 文档", "*.doc; *.docx", 1
        If .Show = -1 Then
            count = .SelectedItems.count
            For Each vrtSelectedItem In .SelectedItems
                Set aDoc = Documents.Open(vrtSelectedItem)
                With ActiveDocument
                    Selection.WholeStory
                    Selection.Copy
                    nPageNumber = nPageNumber + .ComputeStatistics(wdStatisticPages)
                    .Close SaveChanges:=False
                End With
                Windows(originalWindowName).Activate
                Selection.PasteAndFormat (wdFormatOriginalFormatting)
                ActiveDocument.Save
            Next
            MsgBox "已合并 " & count & " 个 Word 文档：共 " & nPageNumber & " 页"
        End If
    End With
End Sub

3. 保存脚本

点击"文件"→"保存"。
返回Word主界面。

三、测试脚本

按下F5或点击"运行"→"运行子程序"。
会弹出文件夹选择对话框，选择包含所有Word文档的文件夹，选中文档。
系统会自动打开每个文档并将内容复制到当前活动文档中。
合并完成后，会弹出"合并完成！"提示框。
保存关闭，将文档后缀改为docx即可。

四、处理常见问题

1. 文档格式混乱

解决方法 ：
1. 在合并后，逐段调整格式。
2. 使用Word的"样式"功能统一段落格式。

2. 图片或表格未正确粘贴

解决方法 ：
1. 在合并后，逐个检查图片和表格。
2. 如果需要调整位置或大小，手动修正。

五、优化脚本

1. 添加用户界面

在VBA脚本中添加按钮，使其更直观。

vba 复制代码

Sub 创建按钮()
    Dim btn As CommandButton
    Set btn = Me.Controls.Add(bstr:="Forms.CommandButton.1")
    
    With btn
        .Left = 10
        .Top = 10
        .Width = 100
        .Height = 30
        .Caption = "启动合并"
        .OnClick = "合并Word文档"
    End With
End Sub

2. 批量合并大文件

在脚本中增加错误处理，确保大文件能顺利合并。

vba 复制代码

Sub 合并Word文档()
    On Error Resume Next
    ' 上文代码不变
End Sub

六、发布和分享

将最终的Word文档保存为模板（.dotm）。