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

[MyCrazyStyle]

比如我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里面的第几个表格？

[northwolves]

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

[MyCrazyStyle]

饿。。。
我的意思是有没有什么属性能直接得到现在是第几个表格
我这样做就是想快一点，你这样循环做我会。