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

[mdmackillop]

I came across this methodology. It will count strings, but also as part of words.

 
Option Compare Text
Sub CountOccurences()
    Dim MyDoc As String, txt As String, t As String
MyDoc = ActiveDocument.Range.Text
txt = InputBox("Text to find")
    t = Replace(MyDoc, txt, "")
    MsgBox (Len(MyDoc) - Len(t)) / Len(txt) & " occurrences of " & txt
End Sub