怎么把好多word文件整合到一个word文件中
答案:4 悬赏:40 手机版
解决时间 2021-11-10 12:12
- 提问者网友:浪荡绅士
- 2021-11-10 08:44
怎么把好多word文件整合到一个word文件中
最佳答案
- 五星知识达人网友:夜余生
- 2021-11-10 10:14
合并多个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.单击“插入”按钮,这样所选的多个文档就插入到一个新的文档中了,从而轻松实现了合并多个文档。
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.单击“插入”按钮,这样所选的多个文档就插入到一个新的文档中了,从而轻松实现了合并多个文档。
全部回答
- 1楼网友:慢性怪人
- 2021-11-10 14:51
复制粘贴应该是很快的办法了 ·~~
- 2楼网友:平生事
- 2021-11-10 13:17
通过 插入 → 文件 按Ctrl键依次选择要合并的文件,最后单击“插入”按钮即可!
- 3楼网友:底特律间谍
- 2021-11-10 11:43
Word本身的文件合并功能:
1.将文件按1,2,3等顺序更名,放在一个文件夹中
2.新建文档,插入--文件--Ctrl+A(选择以上文件夹中的所有文档)【不这么操作的话,文档2和最后的那个文档顺寻是颠倒的】,这样所有文档将合并到一个文档中
1.将文件按1,2,3等顺序更名,放在一个文件夹中
2.新建文档,插入--文件--Ctrl+A(选择以上文件夹中的所有文档)【不这么操作的话,文档2和最后的那个文档顺寻是颠倒的】,这样所有文档将合并到一个文档中
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯