Tabel in een Tekstvenster in Word 2019

[DutchOirs]

Goedemiddag,

Vervolgvraagje op Tabellen aanpassen, tabellen op hun plaats gekregen, maar moest daarbij een gedeelte in een tekstvenster plaatsen.
Nu komt het probleem, namelijk om daar de variabelen in te krijgen lukt me nog steeds niet.
Had een sub gemaakt om deze Tabelnamen/nummers bovenwater te krijgen.
Zie hieronder:

Sub ToonTabelNummers()
    Dim tbl As Table, i As Long
    ' Controleer of er tabellen zijn
    If ActiveDocument.Tables.Count = 0 Then
        MsgBox "Er zijn geen tabellen in dit document.", vbInformation
        Exit Sub
    End If
   
    ' Doorloop alle tabellen
    For i = 1 To ActiveDocument.Tables.Count
        Set tbl = ActiveDocument.Tables(i)
        ' Toon tabelnummer en eerste paar tekens van de inhoud
    '    Print Selection.Tables(1)
    ' tbl.Cell(1, 1)
         
        MsgBox "Tabelnummer: " & i & vbCrLf & _
               "Eerste celinhoud: " & Left(tbl.Cell(1, 1).Range.Text, Len(tbl.Cell(1, 1).Range.Text) - 2), _
               vbInformation, "Tabel info"
    Next i
   
'Wat dit doet:
'Controleert of er tabellen in het actieve document staan.
'Loopt door alle tabellen (For i = 1 To ActiveDocument.Tables.Count).
'Toont het tabelnummer en de inhoud van de eerste cel (zonder de eindmarkering Chr(13) & Chr(7) die Word toevoegt).
End Sub

Maar mis er nog 2, deze staan namelijk in een Tekstvenster.
Dit TekstVenster heet "Tb6"
Iemand een idee hoe je deze kan aansturen?

 

[DutchOirs]

Kleine aanpassing naar het zoeken van:
- tabellen op het word document
- tabellen op het word document maar in een tekstvenster

Sub ToonTabelNummers()
    Dim tbl As Table, i As Long, tktv As TextFrame
    ' Controleer of er tabellen zijn
    If ActiveDocument.Tables.Count = 0 Then
        MsgBox "Er zijn geen tabellen in dit document.", vbInformation
        Exit Sub
    End If
    
    ' Doorloop alle tabellen
    For i = 1 To ActiveDocument.Tables.Count
      Set tbl = ActiveDocument.Tables(i)        ' Toon tabelnummer en eerste paar tekens van de inhoud
                                                '    Print Selection.Tables(1)
                                                ' tbl.Cell(1, 1)
      MsgBox "Tabelnummer: " & i & vbCrLf & _
           "Eerste celinhoud: " & Left(tbl.Cell(1, 1).Range.Text, Len(tbl.Cell(1, 1).Range.Text) - 2), _
           vbInformation, "Tabel info"
    Next i
    ' Doorloop alle Shapes
    For i = 1 To ActiveDocument.Shapes.Count
      MsgBox "Tekstvenster: " & i & vbCrLf & _
           "Eerste celinhoud: " & Left(tbl.Cell(1, 1).Range.Text, Len(tbl.Cell(1, 1).Range.Text) - 2), _
           vbInformation, "Tekstvenster info"
    Next i
    
'Wat dit doet:
'Controleert of er tabellen in het actieve document staan.
'Loopt door alle tabellen (For i = 1 To ActiveDocument.Tables.Count).
'Toont het tabelnummer en de inhoud van de eerste cel (zonder de eindmarkering Chr(13) & Chr(7) die Word toevoegt).
End Sub