Sub Demo()
  Dim Tbl As Table
  Debug.Print "Top Level Tables: " & ActiveDocument.Tables.Count   'this returns count of top level tables
  For Each Tbl In ActiveDocument.Tables
    Debug.Print "Top Table: " & Tbl.ID, Tbl.NestingLevel, Tbl.Cell(1, 1).Range.Paragraphs(1).Range.Text
    If Tbl.Tables.Count > 0 Then InnerSpace Tbl
  Next
End Sub

Function InnerSpace(aTbl As Table) As Table
  Dim aTbl2 As Table
  Debug.Print "Parent Table: " & aTbl.ID, aTbl.NestingLevel, aTbl.Cell(1, 1).Range.Paragraphs(1).Range.Text
  For Each aTbl2 In aTbl.Tables
    Debug.Print "Inner Table: " & aTbl2.ID, aTbl2.NestingLevel, aTbl2.Cell(1, 1).Range.Paragraphs(1).Range.Text
    InnerSpace aTbl2
  Next aTbl2
End Function