怎样用vba在word里快速定位特定表格并得到这个表格的index编号

比如我word里面有100个表格，有些表格的第一个表格位置是代表编号，我用查询语句按编号找到了这个格子，但是怎么返回这个格子所在表格的是整个word的第几个表格呢？
比如这样：
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "10"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = True
    End With
    Selection.Find.Execute

找到了编号为10的表格，我怎么得到这个表格到底是word里面的第几个表格？ --------------------编程问答-------------------- Sub macro1()
Dim i As Long, r As Range
For i = 1 To ActiveDocument.Tables.Count
Set r = ActiveDocument.Tables(i).Cell(1, 1).Range
If r.Text Like "10*" Then MsgBox i
Next
End Sub --------------------编程问答-------------------- 饿。。。
我的意思是有没有什么属性能直接得到现在是第几个表格
我这样做就是想快一点，你这样循环做我会。

补充：VB ,  VBA