Option Explicit

Sub CountFirstLevelNestedRows()
    Dim tbl As Table
    Dim rw As row
    Dim c As cell
    Dim nestedCount As Long
    Dim nt As Table
    
    nestedCount = 0
    
    ' Loop through all tables in the document
    For Each tbl In ActiveDocument.Tables
        ' Check each row for nested tables
        For Each rw In tbl.Rows
            For Each c In rw.Cells
                ' If this cell contains nested tables (first-level)
                If c.Range.Tables.count > 0 Then
                        MsgBox "Nested table !"
                End If
            Next c
        Next rw
    Next tbl
End Sub