Nombre de tables enfant dans la cellule

Question

Dans un Wordtable avec plusieurs lignes, j'ai besoin de compter le nombre de sous-tables présentes dans chaque ligne. Chaque rangée a deux colonnes et les sous-tables sont placées dans la deuxième colonne, c'est-à-dire Cell(row, 2).

Quelque chose comme:

For Each oRow In tblTable.Rows 
    iCountTables = tblTable.Cell(oRow, 2).Tables.Count 
Next 

mais qui fonctionne réellement.

Answer 1

Option Explicit 

Sub TableChildCounter() 

    Dim CurrentDoc As Document 
    Dim CurrentTbl As Table 
    Dim CurrentRow As Row 
    Dim TablesInCol2 As Long 

    Set CurrentDoc = ActiveDocument 



    For Each CurrentTbl In CurrentDoc.Tables 

     For Each CurrentRow In CurrentTbl.Rows 

      TablesInCol2 = CurrentRow.Cells(2).Tables.Count 
      MsgBox TablesInCol2 

     Next CurrentRow 

    Next CurrentTbl 

End Sub