Doug
Sat Feb 21 19:56:20 CST 2004
Dim Title as String, MyValue as String, Counter as Long
Message = "Enter the word for which you need the number of occurences" '
Set prompt.
Title = "InputBox Demo" ' Set title.
'Display Input Box.
MyValue = InputBox(Message, Title)
Selection.HomeKey Unit:=wdStory|
With ActiveDocument.Content.Find
.MatchWholeWord = True
Counter = 0
Do While .Execute(FindText:=MyValue, Forward:=True) = True
Counter = Counter + 1
Loop
End With
MsgBox "The word " + MyValue + " appears" + Str$(Counter) + " times."
--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.
Hope this helps
Doug Robbins - Word MVP
"EazyE" <anonymous@discussions.microsoft.com> wrote in message
news:60C627F2-E8D1-4860-886E-B23B0E5FD90E@microsoft.com...
>I need to count the number of instances a specific word is used in a very
>large document. Hopefully using something that will return a "count()"
>result....