如何获取Outlook邮件表格选中单元格文本并判断选中位置类型

直接上修改后的代码，既解决崩溃问题，又实现表格内/普通文本的判断：

Sub TableItems()
    Dim OutMail As Object
    Dim olInsp As Object
    Dim wdDoc As Object
    Dim selRange As Object
    Dim strText As String
    Const wdWithInTable As Integer = 12 ' 手动定义Word常量，晚绑定无需额外引用
    
    ' 获取当前激活的邮件，无激活邮件直接退出
    Set OutMail = Application.ActiveInspector.CurrentItem
    If OutMail Is Nothing Then Exit Sub
    
    With OutMail
        Set olInsp = .GetInspector
        Set wdDoc = olInsp.WordEditor
        Set selRange = wdDoc.Selection.Range ' 直接调用Word文档的Selection，避免跨应用引用崩溃
        
        ' 判断选中内容是否在表格内
        If wdDoc.Selection.Information(wdWithInTable) Then
            ' 表格内选中内容处理，示例获取选中区域文本
            strText = "选中内容位于表格内：" & vbCrLf & selRange.Text
            ' 如需精细操作可遍历单元格：
            ' Dim tblCell As Object
            ' For Each tblCell In wdDoc.Selection.Cells
            '     strText = strText & tblCell.Range.Text & vbCrLf
            ' Next
        Else
            ' 普通文本选中处理
            strText = "选中内容为普通文本：" & vbCrLf & selRange.Text
        End If
        
        ' 示例：弹窗展示结果，可替换为你的后续处理逻辑
        MsgBox strText
    End With
    
    ' 释放对象，减少内存占用
    Set selRange = Nothing
    Set wdDoc = Nothing
    Set olInsp = Nothing
    Set OutMail = Nothing
End Sub

关键修改说明： #

• 修复崩溃问题：把原代码的wdDoc.Application.Selection.Range替换为wdDoc.Selection.Range。WordEditor本身就是Word的Document对象，直接访问其Selection属性，避免了跨应用程序的对象引用冲突，这是调试时崩溃的核心原因。
• 表格判断逻辑：通过wdDoc.Selection.Information(wdWithInTable)检测选中内容是否在表格内。因为用的是晚绑定（未引用Word对象库），所以手动定义了常量wdWithInTable的值为12（对应Word内置常量）。
• 容错与优化：增加了无激活邮件时的退出逻辑，避免报错；最后手动释放对象，降低内存占用。
• 分场景处理：根据选中内容是否在表格内分支处理，你可以根据需求扩展表格内的操作（比如提取整行/整列数据、格式化表格内容等）。

内容的提问来源于stack exchange，提问作者Jesper Martin Schumacher