word文档，查找多页文本框里的内容，找到后如何得到在第几页？有能直接得到第几页的语句吗？例如在附件中查找文本框里“李四”所在页值。
查找用的语句：               
        With MyRange.Find
                .Text = “李四”
                MyRange.Find.Execute
                .Forward = True
            End With


我知道，如何查找多页不在文本框里的内容，可以用以下句子得到
Set MyRange = ActiveDocument.Content
当前页 = MyRange.Information(wdActiveEndPageNumber)

老师，你的那个代码，我试过那个能查找到word里字符串，我想找的是WORD里文本框里的字符串，并得到该页的页数值。可以看下附件里的例子。谢谢啦

老师，你的那个代码，我试过那个能查找到word里字符串，我想找的是WORD里文本框里的字符串，并得到该页的页数值。可以看下附件里的例子。谢谢啦

1.WordApp申明为什么类型？是dim WordApp as Object  ,还是Dim WordApp As New Word.Application,还是就写dim WordApp?
2.   Dim myObject1 As Object
     Set myObject1 = ActiveDocument.Shapes(1).TextFrame.TextRange
     ShapesCount = myObject1.ActiveDocument.Shapes.Count
我想得到文本框数目，这样写对吗？