工作笔记｜借助vba批量合并word并生成目录

yyyyyyyyXu

于 2022-12-06 16:29:05 发布

阅读量2k

点赞数 1

分类专栏：工作笔记文章标签： vba

本文链接：https://blog.csdn.net/qq_40711769/article/details/128205249

版权

本文介绍如何使用VBA宏来批量合并多个Word文档，并在合并后生成完整的目录，提升工作效率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

目的

将文件夹下所有word合成一个word，并添加文件名至第一行，设置格式为标题1，方便生成目录。

过程

1. 新建一个docm文件，写vba代码，保存，点击[视图-宏-查看宏-运行]，则将当前文件夹下所有docx文件保存至当前docm文件中。
2. 插入-页码-页面底端-普通数字2。
3. 引用-目录-自定义目录-显示级别-2-确定。

vba代码

Sub 合并简历()
    Application.ScreenUpdating = False
    MyPath = ActiveDocument.Path
    MyName = Dir(MyPath & "/" & "*.docx")
    Dim CurName As String
    i = 0
    Set coll = CreateObject("System.Collections.ArrayList")
    Do While MyName <> ""
        coll.Add MyName
        MyName = Dir()
    Loop
    coll.Sort
    For Each MyName In coll
        If MyName <> ActiveDocument.Name Then
            Set wb = Documents.Open(MyPath & "/" & MyName)
            Selection.HomeKey unit:=wdStory

最低0.47元/天解锁文章