Word VBA判断同一表格时Is运算符失效原因及解决方案

1. Is运算符判断失效的技术原理 #

Is运算符在VBA中用于判断两个对象变量是否指向同一个COM实例，你遇到的失效不属于测试逻辑错误，是Office对象模型的固有设计特性：

• Word的Table对象属于临时COM包装类：每次通过ActiveDocument.Tables(index)、Selection.Tables(index)这类集合或派生属性获取Table对象时，Word都会在内存中新建一个独立的COM包装实例，哪怕对应文档中的同一个物理表格，两个实例的内存地址也完全不同，因此Is判断会返回False。你测试的ActiveDocument.Tables(1) Is ActiveDocument.Tables(1)返回False就是这个原因，左右两次调用分别生成了两个独立的COM包装对象。
• 你补充的Excel现象也符合同一逻辑：ActiveSheet.ListObjects(1)直接从集合根节点获取时，Excel会返回缓存的COM实例，因此两次获取的是同一个地址，Is返回True；但从Range.ListObject、Selection.ListObject这类派生属性获取ListObject时，Excel每次都会生成新的临时包装实例，因此两次获取的实例地址不同，Is返回False。

2. 无需修改文档的Word表格唯一标识判断方案 #

完全不修改文档的前提下，有两种适配你场景的可靠判断方案：

方案1：使用Table.ID属性（同文档会话下最优） #

Word的Table对象自带ID属性，该属性为内存级临时属性，不会写入保存到文档源文件，文档关闭后自动清空，完全不会改动用户的原始文件：

• 首次选中表格时，给存储的表格对象赋值一个唯一ID，例如Tbl1.ID = "AdjustColWidth_" & VBA.Timer * 100000
• 后续宏重启判断时，仅需对比当前选中表格的ID与你存储的ID是否一致即可，不受文档内容编辑、表格位置移动的影响。

注：该方案仅在文档未关闭的同一会话下有效，完全匹配你“用户调整后重启宏”的使用场景。

方案2：组合Range.ContentHashCode（兼容跨会话场景） #

如果需要兼容文档关闭再打开的场景，可使用Office 2013及以上版本支持的ContentHashCode属性，该属性是Word对Range内容+结构的内置哈希计算结果，误判率极低，完全不需要修改文档：

• 首次存储时记录Tbl1.Range.ContentHashCode
• 后续判断时对比当前选中表格的Tbl2.Range.ContentHashCode即可，只要不存在结构、内容完全一致的重复表格，就不会出现误判。

适配场景的代码示例 #

' 定义静态变量存储首次表格的唯一标识
Static savedTableID As String

' 首次调用宏时的存储逻辑
If savedTableID = "" Then
    Dim Tbl1 As Table
    Set Tbl1 = Selection.Tables(1)
    ' 生成唯一临时ID，不会写入文档
    savedTableID = "MyMacro_" & VBA.CStr(VBA.Int(VBA.Timer * 100000))
    Tbl1.ID = savedTableID
End If

' 后续重启宏的校验逻辑
Dim currentTbl As Table
If Selection.Information(wdWithInTable) Then
    Set currentTbl = Selection.Tables(1)
    If currentTbl.ID = savedTableID Then
        ' 校验通过，执行后续列宽调整逻辑
    Else
        MsgBox "请选中之前操作的表格后再继续运行宏"
    End If
End If

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