為什麼我無法使用 objSel.Tables.Item(1) 設定表變數？

Question

我正在嘗試循環遍歷選定的表、行、列和單元格。
但是，我無法將 Table 物件正確設定到 for 迴圈中的變數。
我檢查了元素TypeName(objSel.Tables.Item(1)以驗證類型是表類型。但我不斷收到“類型不匹配”錯誤。

下面，您可以看到程式碼和錯誤。

第二次嘗試：

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