Por que não consigo definir uma variável de tabela com objSel.Tables.Item(1)?

Question

Estou tentando percorrer tabelas, linhas, colunas e células selecionadas.
No entanto, não consigo definir o objeto Table corretamente na variável no loop for.
Inspecionei o elemento TypeName(objSel.Tables.Item(1)para validar que o tipoÉdo tipo Tabela. Mas continuo recebendo um erro "Type Missmatch".

Abaixo você pode ver o código e o erro.

Segunda tentativa:

Answer 1

Parece que o problema ocorreu porque ele estava tentando armazenar um Word.Table em um Outlook.Table.

Antes (não funciona):

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

Depois de trabalhar):

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