Displaying a Live Word Count

Written by Allen Wyatt (last updated June 26, 2018)
This tip applies to Word 97, 2000, 2002, and 2003


Word displays, on the status bar, a variety of information that can help you while you are writing. For instance, the status bar shows the number of pages in the document and the line number on the current page. One thing that would be helpful is if the status bar showed the number of words in the document, as you were typing.

Such a feature is not built in to Word, however. The status bar is not reconfigurable via a macro, other than to show or hide the entire bar or write a message to it. Coding a macro that continually wrote a message to the status bar would mean the normal information would not get shown, so a solution that uses the status bar is probably not acceptable.

It is possible to write a macro that would continuously check the word count in a document, and then display the result in another area of the document, such as the title bar or a toolbar button. Depending on the type of system you have, such a solution may not be acceptable; you will need to conduct some tests to see if it is. The internal code to calculate the word count for a document is rather slow, particularly as your documents get larger. This means that constantly checking the word count could slow down your entire system, perhaps to an unacceptable degree.

With this caveat in mind, consider the following set of macros:

Sub AutoExec()
End Sub

Sub NumberOfWords()
    Dim lngWords As Long
    Dim myRange As Range
    With Word.Application
        If .Windows.Count > 0 Then
            Set myRange = ActiveDocument.Content
            lngWords = myRange.ReadabilityStatistics(1).Value
            .Caption = Format(lngWords, "##,##0") & " words - Microsoft Word"
            .Caption = "Microsoft Word"
        End If
        .OnTime Now + TimeValue(OnTm(lngWords)), "NumberOfWords"
    End With
End Sub

Private Function OnTm(ByVal lngWd As Long) As String
    Select Case lngWd \ 1000
        Case 0 To 10
            OnTm = "00:00:01"
        Case 11 To 20
            OnTm = "00:00:05"
        Case 21 To 30
            OnTm = "00:00:10"
        Case 31 To 40
            OnTm = "00:00:15"
        Case Else
            OnTm = "00:00:20"
    End Select
End Function

There are three macros included in this set, each of which does a different task. The first macro, named AutoExec, will run automatically whenever Word starts. Its only purpose is to call the next macro, NumberOfWords, for the first time.

The NumberOfWords macro is the workhorse of this set. It checks to see if there are any windows open in Word. If so, then it calls Word's internal coding to determine the number of words in the document. It then formats the output and displays it on the title bar for the window. If there are no windows open, then the macro simply displays "Microsoft Word" on the title bar.

The final thing that NumberOfWords does is to tell itself when to run again. It does this by using the OnTime feature of VBA, setting the restart time to be sometime within the next 20 seconds. This is where the third macro, OnTm, comes into play. It takes a look at the number of words in the current document and determines the interval between runnings of the NumberOfWords macro. If there are 10,000 or fewer words in your document, then the macro is run every second. If there are 11,000 to 20,000 words, then it is run every five seconds, and so on. The reason for this checking was covered earlier in this tip: the calculation of the word count and the formatting of the title bar information can take a while (in VBA terminology), and if your document is large, this can cause unwanted and noticeable delays in updating your document. You can, if desired, play with the coding in the OnTm function to determine the best delay breakdown for the types of documents you use.


If you would like to know how to use the macros described on this page (or on any other page on the WordTips sites), I've prepared a special page that includes helpful information. Click here to open that special page in a new browser tab.

WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (1608) applies to Microsoft Word 97, 2000, 2002, and 2003.

Author Bio

Allen Wyatt

With more than 50 non-fiction books and numerous magazine articles to his credit, Allen Wyatt is an internationally recognized author. He is president of Sharon Parq Associates, a computer and publishing services company. ...


Letters Turn into Squares

Imagine that you are typing away, and all of a sudden your beautiful prose turns into a series of small rectangles that ...

Discover More

Sequentially Inputting Information

When entering data in a worksheet, you may only want to add information to the cells in a particular range. You can ...

Discover More

Showing RGB Colors in a Cell

Excel allows you to specify the RGB (red, green, and blue) value for any color used in a cell. Here's a quick way to see ...

Discover More

Comprehensive VBA Guide Visual Basic for Applications (VBA) is the language used for writing macros in all Office programs. This complete guide shows both professionals and novices how to master VBA in order to customize the entire Office suite for their needs. Check out Mastering VBA for Office 2010 today!

More WordTips (menu)

Word Count in Multiple Selections

Getting a word count for an entire document is easy. What you may not know is that some versions of Word can also provide ...

Discover More

Word Counts for a Group of Documents

Getting a word count for a single document is easy. Getting an aggregate word count for a large number of documents can ...

Discover More

Counting Document Lines

Need to know how many lines are in your document? Word provides a quick and easy way you can determine the information.

Discover More

FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."

View most recent newsletter.


If you would like to add an image to your comment (not an avatar, but an image to help in making the point of your comment), include the characters [{fig}] (all 7 characters, in the sequence shown) in your comment text. You’ll be prompted to upload your image when you submit the comment. Maximum image size is 6Mpixels. Images larger than 600px wide or 1000px tall will be reduced. Up to three images may be included in a comment. All images are subject to review. Commenting privileges may be curtailed if inappropriate images are posted.

What is eight more than 2?

2021-11-30 21:50:40

Charlie Hoying

This was an awesome tool, but I had a 15,000 word document and my Word began freezing up. Now, every title bar says "Document title - 14 words - Microsoft Word." From your code, it seems that ".caption" represents the title bar of the document? Is there a way to change it to just "Document - Microsoft Word" or simply "Document"?

This Site

Got a version of Word that uses the menu interface (Word 97, Word 2000, Word 2002, or Word 2003)? This site is for you! If you use a later version of Word, visit our WordTips site focusing on the ribbon interface.


FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."

(Your e-mail address is not shared with anyone, ever.)

View the most recent newsletter.