VBA打开局域网Word文档宏被禁用，如何配置Word安全中心？

一、Word安全中心设置方案 #

要避免打开文档时触发宏禁用提示，有两种实用设置方式：

• 添加受信任位置（推荐）：
  1. 打开Word，依次点击「文件」→「选项」→「信任中心」→「信任中心设置」
  2. 选择「受信任位置」，点击「添加新位置」，选中你存放待处理文档的顶层文件夹
  3. 勾选「同时信任此位置的子文件夹」，确定后该目录下的文档会被Word判定为可信，打开时不会禁用宏
• 临时启用所有宏（仅处理可信文档时用）：
  在信任中心设置里选择「宏设置」，勾选「启用所有宏（不推荐；可能会运行危险代码）」，处理完成后建议改回默认设置降低风险

二、VBA代码优化建议 #

你的原代码依赖Selection对象容易出问题，同时可以调整打开文档的参数配合安全设置，优化后的代码如下：

Sub insertFooterIfMissing(file As String)
    Dim appWrd As New Word.Application
    Dim doc As Word.Document
    Dim footerRange As Range
    
    ' 打开文档时禁用不必要的弹窗，配合受信任位置可避免宏禁用提示
    Set doc = appWrd.Documents.Open(FileName:=file, ConfirmConversions:=False, _
        ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto, OpenAndRepair:=False)
    
    ' 更准确判断主页脚是否为空
    With doc.Sections(1).Footers(wdHeaderFooterPrimary)
        If .Range.Text = vbCr Then ' 空页脚默认仅含回车符
            Set footerRange = .Range
            footerRange.Delete ' 清空原有内容
            
            ' 插入FILENAME域
            footerRange.Fields.Add Range:=footerRange, Type:=wdFieldEmpty, Text:="FILENAME ", PreserveFormatting:=True
            footerRange.Collapse wdCollapseEnd
            
            ' 添加制表符和文本
            footerRange.Text = vbTab & vbTab & "Side "
            footerRange.Collapse wdCollapseEnd
            
            ' 插入PAGE域
            footerRange.Fields.Add Range:=footerRange, Type:=wdFieldEmpty, Text:="PAGE ", PreserveFormatting:=True
            footerRange.Collapse wdCollapseEnd
            
            ' 添加分隔文本
            footerRange.Text = " af "
            footerRange.Collapse wdCollapseEnd
            
            ' 插入NUMPAGES域
            footerRange.Fields.Add Range:=footerRange, Type:=wdFieldEmpty, Text:="NUMPAGES ", PreserveFormatting:=True
        End If
    End With
    
    UpdateFieldsInFooter doc
    doc.Save
    doc.Close
    appWrd.Quit ' 关闭后台Word进程，避免资源占用
    Set doc = Nothing
    Set appWrd = Nothing
End Sub

Sub UpdateFieldsInFooter(doc As Word.Document)
    Dim Scn As Section, HdFt As HeaderFooter
    With doc
        For Each Scn In .Sections
            For Each HdFt In Scn.Footers
                If HdFt.Exists Then ' 先判断页脚是否存在，防止报错
                    HdFt.Range.Fields.Update
                End If
            Next
        Next
    End With
End Sub

优化点说明：

• 移除Selection对象，直接操作页脚的Range，无需激活文档，稳定性更高
• 打开文档时显式设置参数，避免弹出转换、保存提示
• 添加appWrd.Quit，防止后台残留大量Word进程
• 优化空页脚判断逻辑，避免误判已有内容的页脚
• 更新页脚前先判断是否存在，避免无页脚时触发错误

三、注意事项 #

• 优先使用「受信任位置」方案，比全局启用所有宏的安全风险低
• 批量处理前先用1-2份测试文档验证设置和代码是否正常工作
• 如果待处理文档有密码保护，需在Documents.Open中补充对应的密码参数

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