Solved: How to count occurences of a string in a doc?

[fumei]

Or...

Dim r As Range
Dim j As Long
Set r = ActiveDocument.Range
With r.Find
   .Text = InputBox("What word(s)?")
   Do While .Execute(Forward:=True) = True
       j = j + 1
    Loop
End With
MsgBox "Given word(s) was found " & j & " times."

No error trapping on the input string. If there is no string found (because of spelling errors for example) the message will be "0 times"