为什么我不能使用 objSel.Tables.Item(1) 设置 Table 变量？

Question

我正在尝试循环遍历选定的表格、行、列和单元格。
但是，我无法让 Table 对象正确设置到 for 循环中的变量中。
我检查了元素TypeName(objSel.Tables.Item(1)以验证类型是类型为 Table。但我一直收到“类型不匹配”错误。

下面，您可以看到代码和错误。

第二次尝试：

Answer 1

看起来问题是由于它试图将 Word.Table 存储到 Outlook.Table 中。

之前（不工作）：

Dim aTbl As Table
Dim i As Integer
For i = 1 To objSel.Tables.Count()
    Debug.Print (TypeName(objSel.Tables.Item(i)))
    Set aTbl = objSel.Tables.Item(i)
    Debug.Print (TypeName(aTbl))
Next

之后（工作）：

Dim aTbl As Word.Table
Dim i As Integer
For i = 1 To objSel.Tables.Count()
    Debug.Print (TypeName(objSel.Tables.Item(i)))
    Set aTbl = objSel.Tables.Item(i)
    Debug.Print (TypeName(aTbl))
Next