Почему я не могу установить переменную таблицы w/ objSel.Таблицы.Пункт (1)?

Question

Я пытаюсь перебрать выбранные таблицы, строки, столбцы и ячейки.
Однако я не могу заставить объект Table правильно установить переменную в цикле for.
Я проверил элемент TypeName(objSel.Tables.Item(1) для проверки того, что тип IS типа Table. Но я продолжаю получать ошибку "Несоответствие типов".

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

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

Answer 1

Похоже, проблема заключалась в том, что она пыталась сохранить Слово.Стол в Outlook.Таблица.

До (не работает):

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