You were very close to a solution by the use of the count property. You just needed to apply it to the table range rather than count rows.
Code:
Sub process_table(this_table As Word.Table)
Dim a_range As Word.Range
Set a_range = this_table.Range
Do While a_range.Tables.Count > 0
'Put your code here
Loop
End Sub