Почему я не могу задать переменную Table с помощью objSel.Tables.Item(1)?

Question

Я пытаюсь пройти по выбранным таблицам, строкам, столбцам и ячейкам.
Однако я не могу правильно установить объект Table в переменную в цикле for.
Я проверил элемент, TypeName(objSel.Tables.Item(1)чтобы убедиться, что типЯВЛЯЕТСЯтипа Table. Но я продолжаю получать ошибку «Type Missmatch».

Ниже вы можете увидеть код и ошибку.

Вторая попытка:

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