举枪打鸟鸟
1.怎样用office2007合并多个word文档
具体操作步骤如下。
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.怎样用office2007合并多个word文档
具体操作步骤如下。
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.单击“插入”按钮，这样所选的多个文档就插入到一个新的文档中了，从而轻松实现了合并多个文档。
3.如何把多个Word文档合并成一个word文档
1、先打开其中一个文档
2、“插入”-->；“对象”--->；下拉“对象菜单栏”--->；“文件中的文字”
3、在弹出的窗口里选择需要合并的第二个文档，这边可以合并多个文档
转载请注明出处51数据库 » 合并word文档2007
