批量合并word文档

word

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、最后点运行，等个几分钟，就搞定了！