View Single Post
  #4   Report Post  
Posted to microsoft.public.word.docmanagement
Jay Freedman Jay Freedman is offline
external usenet poster
 
Posts: 9,854
Default Show word count of current word

Beach Lover wrote:
I have Word count showing but it only gives me the total number of
words in the document. I need to know the word count for the
particular word my cursor is on. How can I get Word to show me that
information?


Put this macro in your Normal.dot or other global template
(http://www.gmayor.com/installing_macro.htm) and assign it to a keyboard
short cut or toolbar button
(http://www.word.mvps.org/FAQs/Custom...roToHotkey.htm or
http://www.word.mvps.org/FAQs/Custom...oToolbar.htm):

Sub CurrentWordNumber()
Dim myRange As Range
Dim myCount As Long
Set myRange = Selection.Range
myRange.Start = ActiveDocument.Range.Start
myCount = myRange.ComputeStatistics(wdStatisticWords)
MsgBox "Now at word " & myCount
End Sub

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.