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 obter o objeto Table para definir corretamente a variável no loop for.
Eu inspecionei o elemento TypeName(objSel.Tables.Item(1) para validar que o tipo IS do tipo Tabela. Mas eu continuo recebendo um erro "Tipo Missmatch".

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

Segundatentativa:

    

Answer 1

Parece que o problema era 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 (trabalhando):

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