基于模板的Word文档关闭前自动删除隐藏书签的VBA问题

原代码的核心问题 #

• 事件参数错误：DocumentBeforeClose事件的正确参数必须包含当前关闭的文档对象Doc，原代码缺少ByVal Doc As Document，直接导致事件无法被正确触发。
• 隐藏书签判断逻辑不全：仅通过_hl前缀筛选会漏掉大量其他隐藏书签（比如交叉引用生成的_Ref开头、目录生成的_Toc开头书签），正确做法是直接用书签的Hidden属性判断。
• 事件放置位置不对：把代码放在Normal模板的ThisDocument里，只会对基于Normal模板新建的文档生效；你需要对自定义模板创建的所有文档生效，所以事件必须放在自定义模板的ThisDocument模块内。

修正后的VBA代码 #

Private Sub DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean)
    Dim nBK As Long
    
    ' 从后往前遍历书签，避免删除后索引混乱
    For nBK = Doc.Bookmarks.Count To 1 Step -1
        With Doc.Bookmarks(nBK)
            ' 直接判断是否为隐藏书签
            If .Hidden = True Then
                .Delete
            End If
        End With
    Next nBK
    
    ' 保存删除书签后的文档
    Doc.Save
End Sub

正确操作步骤 #

1. 打开你的自定义Word模板文件（格式为.dotm，不是普通docx文档）。
2. 按Alt + F11打开VBA编辑器。
3. 在左侧项目窗口中，找到该模板下的Microsoft Word Objects → ThisDocument，双击打开模块。
4. 粘贴上面的修正代码，保存模板。
5. 之后所有基于该模板新建的文档，关闭时都会自动删除所有隐藏书签并保存。

补充说明 #

如果需要对所有Word文档（包括非自定义模板的）生效，才需要把代码放在Normal模板的ThisDocument中，但同样要确保事件参数正确。从后往前遍历书签是因为删除书签后，后续书签的索引会前移，从后往前删不会出现索引越界的问题。

内容的提问来源于stack exchange，提问作者thomas beatham