Word Count

[Guest]

Is there a download available whereby I can get Word Count to display in a pop-up box or on the MS Word toolbar, and tabulate my word count as I write?

 

[Suzanne S. Barnhill]

There is a Word Count toolbar in Word 2002 (maybe 2000) and above. You can
dock this at the bottom of the screen, but it isn't dynamic, you still have
to click on Recount to get an update.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA

Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

Is there a download available whereby I can get Word Count to display in a

pop-up box or on the MS Word toolbar, and tabulate my word count as I write?

 

[Klaus Linke]

You can make the Word Count toolbar "somewhat dynamic" with the macros
below.

The count will update every 2 seconds after you click "Recount" the first
time.
Clicking "Recount" again will toggle the automatic updating off again (as
will Ctrl+Pause, which stops any macro).

Performance may suffer a bit, the status bar will flicker every two
seconds, and you may run into trouble if you need to run other macros.

Regards,
Klaus



Sub ToolsWordCountRecount()
Static boolStop As Boolean
WordBasic.ToolsWordCountRecount
' False if running first time:
If boolStop = False Then
Application.OnTime When:=Now + TimeValue("00:00:02"), _
Name:="Florida"
boolStop = True
Else
' stop OnTime timer:
Application.OnTime When:=Now, Name:=""
boolStop = False
End If
End Sub

Private Sub Florida()
' update word count every two seconds
WordBasic.ToolsWordCountRecount
Application.OnTime When:=Now + TimeValue("00:00:02"), _
Name:="Florida"
End Sub