怎样用office2007合并多个word文档

2024-12-25 06:34:32
推荐回答(3个)
回答1:

具体操作步骤如下。

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 & "篇文档"

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

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

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

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

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

回答2:

好像没有什么好的办法,但是打开文档,Ctrl+A全选,Ctrl+C复制 到新文档Ctrl+V粘贴,应不是太麻烦。

回答3:

只能复制/粘贴了,全选再粘贴也很容易了.