怎么把好多word文件整合到一个word文件中

发布网友发布时间：2022-04-21 15:41

共2个回答

热心网友时间：2022-05-13 06:43

合并多个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.单击“插入”按钮，这样所选的多个文档就插入到一个新的文档中了，从而轻松实现了合并多个文档。

热心网友时间：2022-05-13 08:01

Word本身的文件合并功能：
1.将文件按1，2，3等顺序更名，放在一个文件夹中
2.新建文档，插入--文件--Ctrl+A（选择以上文件夹中的所有文档）【不这么操作的话，文档2和最后的那个文档顺寻是颠倒的】，这样所有文档将合并到一个文档中