This is problematic because a Word page isn't actually a page until it
is displayed on a screen or printed on paper.  That done, pages shown
on my screen or from my printer may very well be different that those
shown on yours.  For an excellent explanation of all of this see:
http://daiya.mvps.org/wordpages.htm

That said, a crude method, and with limitations would look something
like this:

Sub ScratchMacro()
Dim oRng1 As Word.Range
Dim oCount As Long
ActiveDocument.Bookmarks("\startofdoc").Select
Set oRng1 = Selection.Range
Do
 Set oRng1 = ActiveDocument.Bookmarks("\Page").Range
 oCount = oRng1.Tables.Count
 MsgBox "There are " & oCount & " Tables on this page"
 oCount = 0
 oRng1.Collapse wdCollapseEnd
 oRng1.Move wdCharacter, 1
 oRng1.Select
Loop Until oRng1.End = ActiveDocument.Range.End - 1
End Sub

It would take more work to prevent tables that span accross a page from
being counted as as a separate table on each page.