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

 

[peter59]

Dit TekstVenster heet "Tb6"

Daar gaat het al fout.

MsgBox "Tekstvenster: " & i & vbCrLf & _ "Eerste celinhoud: " & Left(tbl.Cell(1, 1)

Dus die kleine aanpassing door alleen copy-paste wat je hebt gedaan, werkt hier niet.

 

[snb]

Zo, dus:

Sub M_snb()
  For Each it1 In ThisDocument.StoryRanges
    For Each it In it1.Tables
      c00 = c00 & it1.StoryType & vbTab & it.Cell(1, 1).Range.Information(10) & vbTab & it.Cell(1, 1).Range.Text
    Next
  Next
    
  MsgBox Replace(c00, Chr(7), "") & vbLf & vbLf & "1:   wholestory" & vbLf & "5   textframestory"
End Sub/code]

 

[peter59]

@snb
Gewoon een citaat van jou.

Een forum is niet voor oplossingen, maar voor suggesties hoe deelnemers zich kunnen bekwamen, zodat zij zelfredzamer worden.

Graag een duidelijke uitleg over wat deze code doet, want daar ontbreekt het nog wel eens aan. Hierdoor worden ik en waarschijnlijk meerdere leden niet zelfredzamer.

 

[snb]

Je wordt zelfredzamer door de code in stap-voor-stap modus uit te voeren. en de elementen van de code te analyseren. Zelfwerkzaamheid stimuleert zelfredzaamheid. Ik toon slechts de richting waarin je het zoeken moet via HI.

 

[DutchOirs]

Goedemiddag samen,
Wat het laatste betreft van snb "Zelfwerkzaamheid stimuleert zelfredzaamheid"
tja wat zal ik daar op antwoorden..
Was 12 jaar toen ik begon te werken en kan je zeggen dat ik me aardig kan redden.
En ben al dagen bezig met zoeken en uitvogelen.

Hoi Peter59,
Probeer een variabele over te brengen van een excel file naar een word file.
Tot op heden (onder 2003) werkt het allemaal perfect.
Maar ben bezig over te stappen naar Win 11 en excel 2019.
Bij het omzetten v/h word-file, van 2003 naar 2019 werd alles verschoven.
Dus heb alles weer op zijn plaats gekregen, maar met tabellen werkt dat niet zo makkelijk.
Heb uiteindelijk een tekstvak gebruik waar in 2 tabellen zitten.
Probleem is nu dat ik de variabelen niet meer in de tabellen krijg.