魔天记小说网

手机浏览器扫描二维码访问

多个word文档合并为一个文档的方法（第2页）

2.按Alt+F11打开VBA编辑器。

3.插入一个新模块，并输入以下宏代码：

vba

SubCombineDocuments　　DimmyDocAsDocument

DimfilePathAsString

DimfileNameAsString

DimfolderPathAsString

设置文件夹路径

folderPath="C:YourFolderPath"更改为你的文件夹路径

获取文件夹中第一个Word文件

fileName=Dir（folderPath&"*.docx"）

循环遍历所有文件

DoWhilefileName＜＞

打开文件

SetmyDoc=Documents.Open（folderPath&fileName）

将内容添加到主文档

ActiveDocument.Content.InsertAftermyDoc.Content

关闭打开的文档

myDoc.CloseFalse

获取下一个文件

fileName=Dir　　Loop

EndSub

4.运行宏，将指定文件夹中的所有Word文档合并到当前打开的文档中。

选择适合你的方法进行操作，就可以快速将多个Word文档合并为一个。

喜欢日常生活工作学习知识积累请大家收藏：（）日常生活工作学习知识积累

开局获得141，成立巨神集团  千师弟，小心，她们都不对劲呀！  在那苍穹与苍穹之间  穿越之我要看不一样的世界  拥有读心术后，真千金她杀疯了  开局获得一个超级打工系统  转职：一柄魔刀千刃杀穿全校！  武师的自我修养  这次我只想当一个综艺咖  天命逆途，逆命  影后by小船长浪里白条  快跑，御兽宗的吃货小师妹来了！  贵族校园文的休学病美人回来了  英雄联盟之众神之王  尘域破晓  创生之环  重生了谁还恋爱啊  瓶女  系统：不隐瞒了，我是丹神  总裁快哄