Warum kann ich keine Tabellenvariable mit objSel.Tables.Item(1) festlegen?

Question

Ich versuche, ausgewählte Tabellen, Zeilen, Spalten und Zellen zu durchlaufen.
Ich kann das Table-Objekt jedoch nicht richtig in die Variable in der For-Schleife einfügen.
Ich habe das Element überprüft TypeName(objSel.Tables.Item(1), um zu bestätigen, dass der TypISTvom Typ Tabelle. Aber ich erhalte immer die Fehlermeldung „Typ stimmt nicht überein“.

Unten können Sie den Code und den Fehler sehen.

Zweiter Versuch:

Answer 1

Es scheint, als ob das Problem beim Versuch bestand, eine Word-Tabelle in einer Outlook-Tabelle zu speichern.

Vorher (funktioniert nicht):

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

Nach der Arbeit):

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