windows合并多个office

方法一(看起来高大上)

1. 首先用记事本做一个小程序，以便在文件夹中可以同时选中多个文件。

代码如下：
 Dim fs As FileSearch, i As Long, n As Long
    Set fs = Application.FileSearch
    ml = ActiveDocument.Path
    bwj = ActiveDocument.Name    
    Documents.Add    
    With fs
        .NewSearch
        .LookIn = ml
        .FileType = msoFileTypeWordDocuments
        If .Execute > 0 Then
            For i = 1 To .FoundFiles.Count
            If .FoundFiles.Item(i) <> ml & "\" & bwj Then
            Selection.InsertFile FileName:=.FoundFiles.Item(i)
            Selection.InsertBreak Type:=wdPageBreak
            n = n + 1
            End If
            Next
        End If
    End With
    MsgBox "共合并了" & n & "篇文档"

将此代码命名为"test.bat"保存。如果没有这个文件，你就不能在插入时同时选定多个要合并的文档

2 .新建一个文件夹，把"test.bat"放进去，然后再把所有需要合并的word文件都放在这个文件夹之中。

3.双击运行

方法二(直接在office软件上操作)

1.单击功能区中的“插入”选项卡，然后单击“对象”按钮右侧箭头，并单击弹出菜单中的“文件中的文字”命令。

2.在“插入文件”对话框中，把你新建的那个文件夹打开，按住shift键，全选要合并的多个文档。

3.单击“插入”按钮，这样所选的多个文档就插入到一个新的文档中了，从而轻松实现了合并多个文档。