用VBA来处理WORD多文档合并.docx
《用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、运行，等候几分钟，即可完成合并
- 配套讲稿：
如PPT文件的首页显示word图标，表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制：
部分文档作品中含有的国旗、国徽等图片，仅作为作品整体效果示例展示，禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词：
- VBA 处理 WORD 文档 合并
三一办公所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
相关资源
更多
链接地址：https://www.31ppt.com/p-3658406.html