Word中Document_Open宏仅在小幅修改VBA代码后才触发问题求助

• Office 365 2110版本存在VBA项目缓存机制缺陷：从网络来源下载的docm文件打开时，Office会优先加载预存的VBA项目缓存快照，如果VBA项目未被标记为已修改，Office不会重新编译加载最新代码，直接导致Document_Open事件绑定失效。对VBA代码做无意义修改后保存，本质是强制标记VBA项目为已修改状态，下次打开时Office会重新编译完整项目，事件就能正常触发。
• 自定义文档属性读取时序不匹配：Document_Open事件触发时，部分设备环境下CustomDocumentProperties还未完成加载初始化，此时读取prop1的数值会返回空值或旧缓存值，不满足等于空格的判断条件，因此不会执行后续调用逻辑。
• 设备环境差异：不同用户的Office配置存在区别，部分用户的信任中心附加限制、受保护视图规则、VBA编译默认配置不同，会进一步放大上述缓存和时序问题的触发概率。

代码层面优化（优先采用，兼容性最好） #

1. 替换事件触发入口：将原有ThisDocument模块中的Document_Open逻辑迁移到标准模块的AutoOpen全局宏中，AutoOpen的触发优先级高于文档模块事件，不受VBA项目缓存问题影响。
2. 增加属性读取重试逻辑：通过循环延迟和重试确保读取到正确的自定义属性值，避免时序问题导致的判断失效。
3. 优化判断条件的默认值：将默认标识从空格替换为明确的非空字符串，避免空格被自动修剪导致判断出错。

修改后的代码示例（需放在标准模块中，删除原有ThisDocument模块的Document_Open代码）：

' 64位Office需额外添加Sleep声明，32位可省略
#If VBA7 Then
    Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#Else
    Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

Public Sub Subrutine1()
    ThisDocument.CustomDocumentProperties("prop1").Value = "UNINIT"      ' 替换空格为明确的初始化标识
    UserForm1.Show  ' prop1后续从用户窗体赋值
End Sub

' 全局AutoOpen宏，替代Document_Open事件
Public Sub AutoOpen()
    Dim propVal As String
    Dim retryCnt As Integer
    ' 最多重试3次读取属性，每次间隔100ms等待属性加载完成
    For retryCnt = 1 To 3
        On Error Resume Next
        propVal = ThisDocument.CustomDocumentProperties("prop1").Value
        On Error GoTo 0
        If propVal <> "" Then Exit For
        DoEvents
        Sleep 100
    Next retryCnt
    
    If propVal = "UNINIT" Then
        Call Subrutine1
    End If
End Sub

配置层面优化 #

• 发布文档前先在VBA编辑器中点击「调试」-「编译VBAProject」，完成全量编译后再保存文档，避免保存部分编译的项目文件。
• 批量处理下载的docm文件，右键属性勾选「解除锁定」清除NTFS区域标识，避免Office对网络来源文件的额外限制。
• 针对异常设备，检查信任中心设置，确保「信任对VBA工程对象模型的访问」选项已勾选。

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