630中文网

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

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

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

vba

Subbinedocuments　　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文档合并为一个。

请勿开启浏览器阅读模式，否则将导致章节内容缺失及无法阅读下一章。

相邻推荐:崩坏：松雀奶奶还在追我！  八零姐妹日常  女扮男装，被高冷千金倒追  [综漫] 齐神今天仍未知晓小鸟游的心声  穿到修仙界，被清冷师兄宠上天  我最终在僵约里成为大BOSS  [聊斋同人] 渡阳气  荒岛生活，从征服绝色美女开始  人在警界：步步高升  长生：从种田小游戏开始！  [咒回同人] 七海如何阻止我黑化  炮灰不走剧情，主角死活随便  被推下山崖后，祖传玉佩开启空间  霍格沃茨：老祖宗又帅又强  柯南：不平行恋爱日记  快穿：炮灰初恋求生指南  [综漫] 最强们的静谧爱恋  兽人少女的部落日常  穿越农门斗极品，带领爹娘赚金银  包青天之妖案