Increasing readability (2)

Here is what Microsoft says about Word's Readability testing facility:

Readability scores

When Word finishes checking spelling and grammar, it can display information about the reading level of the document, including the following readability scores. Each readability score bases its rating on the average number of syllables per word and words per sentence.

Flesch Reading Ease score

Rates text on a 100-point scale; the higher the score, the easier it is to understand the document. For most standard documents, aim for a score of approximately 60 to 70.

Flesch-Kincaid Grade Level score

Rates text on a U.S. grade-school level. For example, a score of 8.0 means that an eighth grader can understand the document. For most standard documents, aim for a score of approximately 7.0 to 8.0.

The formula for the Flesch Reading Ease score is:
206.835 - (1.015 x ASL) - (84.6 x ASW) where:

ASL = average sentence length (the number of words divided by the number of sentences)

ASW = average number of syllables per word (the number of syllables divided by the number of words)

The formula for the Flesch-Kincaid Grade Level score is:

(.39 x ASL) + (11.8 x ASW) - 15.59

where:

ASL = average sentence length (the number of words divided by the number of sentences)

ASW = average number of syllables per word (the number of syllables divided by the number of words)

The macro!

This is the macro. Copy this into your macro editor (eliminating the Sub/Sub End):

Sub stats()
'
' stats Macro
' Macro by Peter Hulm
'
' Go to end of file
    Selection.EndKey Unit:=wdStory
' Add a paragraph
    Selection.TypeParagraph
' Go through the Readability Statistics list spelling out each result
For Each rs In Selection.Range.ReadabilityStatistics
    Selection.TypeText Text:=rs.Name & " - " & rs.Value
' Add a carriage return after each result
    Selection.TypeParagraph
Next rs    
End Sub

Enjoy!