使用VBA宏（适合批量处理）批量合并word文档

使用VBA宏（适合批量处理）批量合并word文档

步骤：

打开Word，按 Alt+F11 打开VBA编辑器。

右键左侧项目选择 「插入」→「模块」，粘贴以下代码：

vba

Copy

Sub MergeDocuments()

    Dim file As Variant

    file = Application.FileDialog(msoFileDialogFilePicker).Show

    If file <> -1 Then Exit Sub

    For Each doc In Application.FileDialog(msoFileDialogFilePicker).SelectedItems

        If doc <> ThisDocument.FullName Then

            Selection.InsertFile doc

            Selection.InsertBreak Type:=wdPageBreak

        End If

    Next doc

End Sub

按 F5 运行宏，选择要合并的文件，自动插入分页符合并。

优点：高效处理大量文档。

注意：需启用宏（设置路径：文件→选项→信任中心→启用所有宏）。