《用VBA来处理WORD多文档合并.docx》由会员分享，可在线阅读，更多相关《用VBA来处理WORD多文档合并.docx（2页珍藏版）》请在三一办公上搜索。
用VBA来处理WORD多文档合并1、新建一个WORD文档，命名后保存到和要合并的1000多篇文档一个文件夹里。2、摁ALT+F11进入宏编辑器。3、双击左上角的ThisDocument,在右侧的代码区粘贴代码如下：Sub 合并文档Application.ScreenUpdating = FalseMyPath = ActiveDocument.PathMyName = Dir(MyPath & & *.doc)i = 0Do While MyName <> If MyName <> ActiveDocument.Name ThenSet wb = Documents.Open(MyPath & & MyName)Selection.WholeStorySelection.CopyWindows(1).ActivateSelection.EndKey Unit:=wdLineSelection.TypeParagraphSelection.Pastei = i + 1wb.Close FalseEnd IfMyName = DirLoopApplication.ScreenUpdating = TrueEnd Sub4、运行，等候几分钟，即可完成合并
