Please Note: This article is written for users of the following Microsoft Word versions: 97, 2000, 2002, and 2003. If you are using a later version (Word 2007 or later), this tip may not work for you. For a version of this tip written specifically for later versions of Word, click here: Only Showing Readability Statistics.
by Allen Wyatt
(last updated June 26, 2018)
When you do a grammar check on your document, the very last step performed by Word is to display a set of readability statistics that you can use to analyze the presentation of your content. There may be times when you want to only display the readability statistics, without going through the complete grammar check first. Unfortunately, Word does not provide a way to do this. You can, however, create a macro that will display the readability statistics quite nicely. The heart of such a macro would be the ReadabilityStatistics collection.
To get an idea how such a macro could be written, consider the following single-line macro:
Sub CheckTest() MsgBox ActiveDocument.Content.ReadabilityStatistics(9).Value End Sub
This macro displays a number that represents the Flesch Reading Ease value, ninth member of the ReadabilityStatistics collection. There are 10 individual elements in the collection, as follows:
|5||Sentences per Paragraph|
|6||Words per Sentence|
|7||Characters per Word|
|9||Flesch Reading Ease|
|10||Flesch-Kincaid Grade Level|
To display all ten statistics (as would be done in a complete grammar check of your document), all you need to do is have your macro step through the various members of the collection and display their values. The following macro does just that:
Sub Readability() Dim DocStats As String Dim MBTitle As String Dim J As Integer MBTitle = "Readability Statistics" DocStats = "" With ActiveDocument.Content For J = 1 to 10 DocStats = DocStats & .ReadabilityStatistics(J) DocStats = DocStats & ": " DocStats = DocStats & .ReadabilityStatistics(J).Value DocStats = DocStats & vbCrLf Next J End With MsgBox DocStats, vbOKOnly, MBTitle End Sub
When you run the macro, understand that it takes a bit of time to run. In fact, depending on the speed of your system, the length of your document, and its complexity, it can take quite a bit of time to run. Be patient; once the ten statistics are completed, they are displayed on the screen.
WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (1784) applies to Microsoft Word 97, 2000, 2002, and 2003. You can find a version of this tip for the ribbon interface of Word (Word 2007 and later) here: Only Showing Readability Statistics.
Learning Made Easy! Quickly teach yourself how to format, publish, and share your content using Word 2013. With Step by Step, you set the pace, building and practicing the skills you need, just when you need them! Check out Microsoft Word 2013 Step by Step today!
Want to correct the spelling of a word that Word thinks is improperly spelled? A quick way to do it is to right-click the ...Discover More
Spell check a document, and Word normally checks several different dictionaries. Here's how to limit the dictionary ...Discover More
Automatic Spell Checking can change your menu options.Discover More
FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
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.