In our writing, we've found it helpful to have the document statistics available without having to run through the Grammar checker. We have not assigned this macro to a keystroke, since we use it "occasionally." 

Public Sub Statistics()
' 1 Words
' 2 Characters
' 3 Paragraphs
' 4 Sentences
' 5 Sentences per Paragraph
' 6 Words per Sentence
' 7 Characters per Word
' 8 Passive Sentences
' 9 Flesch Reading Ease
'10 Flesch-Kincaid Grade Level
Dim msg As String
msg = ActiveDocument.Name & Chr$(13)
Dim rs As ReadabilityStatistic
For Each rs In Documents(1).ReadabilityStatistics
    msg = msg & rs.Name & " - " & rs.Value & Chr$(13)
Next rs
MsgBox msg
End Sub