Mit VBA Tabellen in Zellen einer Tabelle zählen (Word)

Question

Hallo,

ich durchlaufe aus Access heraus eine Tabelle in einem Word-Dokument und
möchte wissen, ob sich in den Zellen weitere (verschachtelte) Tabellen befinden
(und wenn ja in welcher Zelle).

Folgender Code liefert mir die Anzahl aller inneren Tabellen:

docApp.ActiveDocument.tables(tIndex).tables.Count

Aber wenn ich das pro Zelle mache, gibt er mir die Anzahl der "äußeren" Tabellen:

docApp.ActiveDocument.tables(tIndex).Cell(i, 4).Range.tables.Count

Bei InlineShapes funktioniert das super, bloß bei den Tabellen nicht!
docApp.ActiveDocument.tables(tIndex).Cell(i, 4).Range.InlineShapes.Count

Kann mir jemand helfen?

Gruß
Pink

Answer 1

Hallo,

keine Ahnung, ob ich dich richtig verstanden habe, aber das hier mal als keiner Denkanstoß:

Sub Tabelle_durchlaufen()

Dim Zelle As Word.Cell
Dim Tabelle As Word.Table
Dim Zeile As Word.Row
Dim tIndex As Long

For tIndex = 1 To ActiveDocument.Tables.Count

Set Tabelle = ActiveDocument.Tables(tIndex)

For Each Zeile In Tabelle.Rows
For Each Zelle In Zeile.Cells
If Zelle.Tables.Count > 0 Then MsgBox "Tabelle in Tabelle " & tIndex & " Zeile " & Zelle.RowIndex & ", Spalte " & Zelle.ColumnIndex & " gefunden"
Next Zelle
Next Zeile

Next tIndex

End Sub

Gruß

M.O.

Answer 2

Ja, danke!
Vorhin habe ich die Lösung aber auch selbst gefunden.