如何在MS Access中编程判断绑定对象框内嵌入对象的类型

完全可以通过VBA编程实现区分截图与Word/Excel等Office对象，核心是利用OLE对象自带的**ProgID（程序标识符）**或类名来识别类型——这也是右键菜单差异的底层原因：Office对象有可激活的ProgID，而截图类位图对象没有编辑/打开的关联程序（或仅关联画图工具）。

实现步骤与代码示例 #

1. 编写类型检测函数

在表单的VBA模块中添加以下函数，用于提取当前绑定对象框中嵌入对象的类型标识：

Function GetEmbeddedObjectType(ctl As Object) As String
    On Error Resume Next
    Dim oleObj As Object
    
    ' 验证控件类型并检查是否存在对象
    If TypeName(ctl) = "BoundObjectFrame" And Not IsNull(ctl.Object) Then
        Set oleObj = ctl.Object
        ' 优先获取ProgID（更精准）
        GetEmbeddedObjectType = oleObj.ProgID
        ' 若ProgID获取失败，退而求其次获取类名
        If Err.Number <> 0 Then
            Err.Clear
            GetEmbeddedObjectType = TypeName(oleObj)
        End If
    Else
        GetEmbeddedObjectType = "无有效嵌入对象"
    End If
    
    Set oleObj = Nothing
End Function

2. 批量检测或单记录判断

根据需求，可针对单条记录实时判断，或批量遍历所有记录分类：

单记录实时判断（比如在表单Current事件中调用）

Private Sub Form_Current()
    Dim objType As String
    objType = GetEmbeddedObjectType(Me.BoundObjectFrame1) ' 替换为你的绑定对象框名称
    
    ' 根据类型做区分处理
    Select Case objType
        Case "Paint.Picture", "Bitmap Image", "MSPaint.Picture"
            Me.txtObjectType.Value = "截图/位图"
        Case "Word.Document.16", "Word.Document"
            Me.txtObjectType.Value = "Word文档"
        Case "Excel.Sheet.16", "Excel.Sheet"
            Me.txtObjectType.Value = "Excel表格"
        Case Else
            Me.txtObjectType.Value = "未知类型: " & objType
    End Select
End Sub

批量遍历所有记录

Sub BatchCheckAllRecords()
    Dim rs As Recordset
    Set rs = Me.RecordsetClone
    
    rs.MoveFirst
    Do Until rs.EOF
        Me.Bookmark = rs.Bookmark ' 定位到当前记录
        Dim objType As String
        objType = GetEmbeddedObjectType(Me.BoundObjectFrame1)
        
        ' 输出到立即窗口（可改为写入字段或报表）
        Select Case objType
            Case "Paint.Picture", "Bitmap Image", "MSPaint.Picture"
                Debug.Print "记录ID: " & rs!ID & " | 类型: 截图/位图"
            Case "Word.Document.16", "Word.Document", "Word.Selection"
                Debug.Print "记录ID: " & rs!ID & " | 类型: Word对象"
            Case "Excel.Sheet.16", "Excel.Sheet", "Excel.Selection"
                Debug.Print "记录ID: " & rs!ID & " | 类型: Excel对象"
            Case Else
                Debug.Print "记录ID: " & rs!ID & " | 类型: " & objType
        End Select
        
        rs.MoveNext
    Loop
    
    Set rs = Nothing
End Sub

注意事项 #

• 确保绑定对象框的AutoActivate属性设置为Manual，避免自动激活Office对象导致代码执行报错；
• 不同截图工具生成的位图ProgID可能略有差异，需根据实际环境测试调整判断条件；
• 粘贴的Office片段（而非完整文档）可能会返回Word.Selection或Excel.Selection这类ProgID，需纳入判断；
• 代码中加入了错误捕获，可避免损坏的OLE对象导致程序崩溃。

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