VBA word宏编程，全部替换后有个统计替换了多少个地方，怎么获得这个统计值

VBA word宏编程，全部替换后有个统计替换了多少个地方，如何获得这个统计值？

------解决方案--------------------
思路为获得“/p/p”的词频，看看这个：下面是在Word录制的Macro，你稍微改一下便成了。
 Dim   lngC   As   Long        
 Dim   objRng   As   Range         
Dim   strWord()   As   String                       
Set   objRng   =   Selection.Document.Paragraphs(2).Range         
objRng.Select         
strWord()   =   Split(Selection.Text,   "t ")        
 lngC   =   UBound(strWord())         
MsgBox   lngC