怎样合并多个word文档
怎样把单个word文件整合到一个文件上去
操作方法
- 01
首先用记事本做一个小程序,以便在文件夹中可以同时选中多个文件。 代码如下: ———————————————————————————— 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 & "篇文档" —————————————————————————————————— 将此代码命名为Sub test.bat保存。如果没有这个文件,你就不能在插入时同时选定多个要合并的文档
- 02
新建一个文件夹,把《Sub test》放进去,然后再把所有需要合并的word文件都放在这个文件夹之中。
- 03
单击功能区中的“插入”选项卡,然后单击“对象”按钮右侧箭头,并单击弹出菜单中的“文件中的文字”命令。
- 04
在“插入文件”对话框中,把你新建的那个文件夹打开,按住shift键,全选要合并的多个文档。
- 05
单击“插入”按钮,这样所选的多个文档就插入到一个新的文档中了,从而轻松实现了合并多个文档。