E' passato molto tempo, ma prova con questa semplice macro:
--------------------------------------------
Selection.Bookmarks.Add ("Segnalibro_Tmp")
For I = 1 To ActiveDocument.Tables.Count
ActiveDocument.Tables(I).Select
If Selection.Bookmarks.Exists("Segnalibro_Tmp") Then Indice = I: Exit For
Next I
ActiveDocument.Bookmarks("Segnalibro_Tmp").Select
ActiveDocument.Bookmarks("Segnalibro_Tmp").Delete
MsgBox "Indice: " & Indice