Sub Test()
Dim oTbl As Table, oCell As Cell, i As Integer
With ActiveDocument
i = .Tables.Count
For Each oTbl In .Tables
For Each oCell In oTbl.Range.Cells
i = i + oCell.Tables.Count
Next
Next
End With
MsgBox "This document contains " & i & " Table(s)."
End Sub