解决Mac版Word旧版本不支持Document_BuildingBlockInsert事件的编译错误

问题核心：仅靠VBA7条件编译无法覆盖Mac版Word的所有情况——部分支持VBA7的旧版本Word并未引入Document_BuildingBlockInsert事件，硬编码该事件声明会触发编译错误，导致Document_Open等通用事件也无法正常运行。

推荐解决方案：动态绑定事件（运行时检查+类模块封装） #

动态绑定事件的核心是将事件声明移至类模块，仅在运行时判断版本支持性后再实例化绑定，避免编译阶段的错误检测。

步骤1：创建类模块封装事件

1. 在VBA编辑器中插入一个类模块，命名为clsWordEvents
2. 写入以下代码：

Public WithEvents appWord As Word.Application

Private Sub appWord_BuildingBlockInsert(ByVal Block As BuildingBlock)
    ' 这里编写BuildingBlockInsert事件的处理逻辑
    Debug.Print "插入的构建块：" & Block.Name
End Sub

步骤2：在ThisDocument中实现动态绑定与版本检查

修改ThisDocument模块的代码如下：

Private wordEventHandler As clsWordEvents

Private Sub Document_Open()
    ' 所有Word版本都需要执行的通用逻辑
    Debug.Print "文档已打开"
    
    ' 运行时检查是否支持BuildingBlockInsert事件
    If IsBuildingBlockInsertSupported Then
        Set wordEventHandler = New clsWordEvents
        Set wordEventHandler.appWord = Word.Application
    End If
End Sub

Private Sub Document_Close()
    ' 关闭文档时释放对象，避免内存泄漏
    Set wordEventHandler = Nothing
End Sub

Private Function IsBuildingBlockInsertSupported() As Boolean
    ' 通过尝试访问事件对象来判断版本兼容性
    On Error Resume Next
    Dim dummyEvent As Object
    Set dummyEvent = Word.Application.Events("BuildingBlockInsert")
    IsBuildingBlockInsertSupported = (Err.Number = 0)
    On Error GoTo 0
End Function

方案优势 #

• 编译阶段无错误：事件声明仅在类模块中，未被实例化时不会触发旧版本的编译检查
• 兼容性精准：通过运行时检查事件是否存在，无需硬编码版本号，适配所有Mac版Word
• 逻辑解耦：事件处理逻辑与通用代码分离，便于维护

备选方案：条件编译结合版本号判断 #

如果偏好直接使用事件声明，可以通过Mac版Word的版本号做二次判断（该事件大致从Word 2016 for Mac即版本16.0开始支持）：

Private Sub Document_Open()
    ' 通用逻辑代码
End Sub

#If VBA7 Then
    #If Mac Then
        ' 仅在Mac版Word 16.0及以上版本编译该事件
        #If Val(Application.Version) >= 16.0 Then
            Private Sub Document_BuildingBlockInsert(ByVal Block As BuildingBlock)
                ' 事件处理逻辑
            End Sub
        #End If
    #Else
        ' Windows版Word直接编译（Windows版VBA7基本都支持该事件）
        Private Sub Document_BuildingBlockInsert(ByVal Block As BuildingBlock)
            ' 事件处理逻辑
        End Sub
    #End If
#End If

注意：该方案依赖版本号硬编码，若微软调整事件引入版本可能失效，不如动态绑定灵活。

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