趣书网

阅读记录  |   用户书架
上一页
目录 | 设置
下一章

多个Word文档合并为一个文档的方法(2 / 2)

加入书签 | 推荐本书 | 问题反馈 |

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

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

```vba

Sub CombineDocumentsDim myDoc As Document

Dim filePath As String

Dim fileName As String

Dim folderPath As String

' 设置文件夹路径

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

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

fileName = Dir(folderPath & "*.docx")

' 循环遍历所有文件

Do While fileName <>

' 打开文件

Set myDoc = Documents.Open(folderPath & fileName)

' 将内容添加到主文档

ActiveDocument.Content.InsertAfter myDoc.Content

' 关闭打开的文档

myDoc.Close False

' 获取下一个文件

fileName = DirLoop

End Sub

```

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

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

喜欢日常生活工作学习知识积累请大家收藏:日常生活工作学习知识积累本站更新速度全网最快。

上一页
目录
下一章
A- 18 A+
默认 贵族金 护眼绿 羊皮纸 可爱粉 夜间