有没有批量合并word文档的工具

发布网友发布时间：2022-05-07 18:05

共2个回答

热心网友时间：2022-06-30 23:33

1、新建一个WORD文档，命名后保存到和要合并的多篇文档一个文件夹里。
2、摁ALT+F11进入宏编辑器。
3、双击左上角的ThisDocument,在右侧的代码区粘贴代码如下：

Sub 合并文档()
Application.ScreenUpdating = False
MyPath = ActiveDocument.Path
MyName = Dir(MyPath & "\" & "*.doc")
i = 0
Do While MyName <> ""
If MyName <> ActiveDocument.Name Then
Set wb = Documents.Open(MyPath & "\" & MyName)
Selection.WholeStory
Selection.Copy
Windows(1).Activate
Selection.EndKey Unit:=wdLine
Selection.TypeParagraph
Selection.Paste
i = i + 1
wb.Close False
End If
MyName = Dir
Loop
Application.ScreenUpdating = True
End Sub

4、运行，等候几分钟，即可完成合并

热心网友时间：2022-06-30 23:34

新建文档，点插入，选择文件，将自己要组合的文档按顺序插入，起名，保存