批量合并word文档

最新推荐文章于 2025-02-10 23:38:42 发布

ruglcc

最新推荐文章于 2025-02-10 23:38:42 发布

阅读量1.7k

点赞数 1

文章标签：文档 windows

本文链接：https://blog.csdn.net/ruglcc/article/details/7625926

版权

我这边有大概1000多篇的word文件，我想把它们合并成一个word文件，word当中的插入文件一次只可以合并59个，有没有别的更好的方法或者软件呢？
1、新建一个WORD文档，命名后保存到和要合并的1000多篇文档一个文件夹里。
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、运行，等候几分钟，即可完成合并