objSel.Tables.Item(1)でテーブル変数を設定できないのはなぜですか?

Question

選択したテーブル、行、列、セルをループしようとしています。
しかし、テーブルオブジェクトをforループの変数に正しく設定できません。
要素を調べてTypeName(objSel.Tables.Item(1)、型が正しいことを検証しました。はテーブル型です。しかし、「型の不一致」エラーが発生し続けます。

以下にコードとエラーを示します。

2回目の試み:

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