Readabality Statistics

  • Thread starter Thread starter Guest
  • Start date Start date
Help said:
how do I print readability statistics in a word document?
Click to expand...

The following macro will copy the stats to a new document which you can save
or print- http://www.gmayor.com/installing_macro.htm (watch out for
premature line breaks)

Sub PrintReadabilityStatistics()
Dim sStats As String

'Copy the Readability Statistics to a new document
sStats = "Counts" & vbCrLf & " Words " & vbTab _
& ActiveDocument.Content.ReadabilityStatistics(1).Value _
& vbCrLf & " Characters " & vbTab & _
ActiveDocument.Content.ReadabilityStatistics(2).Value _
& vbCrLf & " Paragraphs " & vbTab & _
ActiveDocument.Content.ReadabilityStatistics(3).Value _
& vbCrLf & " Sentences " & vbTab & _
ActiveDocument.Content.ReadabilityStatistics(4).Value & _
vbCrLf & vbCrLf & "Averages" & vbCrLf & " Sentences Per Paragraph " _
& vbTab & ActiveDocument.Content.ReadabilityStatistics(5).Value _
& vbCrLf & " Words Per Sentence " & vbTab & _
ActiveDocument.Content.ReadabilityStatistics(6).Value _
& vbCrLf & " Characters Per Word " & vbTab & _
ActiveDocument.Content.ReadabilityStatistics(7).Value _
& vbCrLf & vbCrLf & "Readability " & vbCrLf & _
" Passive Sentences " & vbTab & _
ActiveDocument.Content.ReadabilityStatistics(8).Value _
& "%" & vbCrLf & " Flesch Reading Ease " & vbTab & _
ActiveDocument.Content.ReadabilityStatistics(9).Value _
& vbCrLf & " Kincaid Grade Level" & vbTab & _
ActiveDocument.Content.ReadabilityStatistics(10).Value _
& vbCrLf
Documents.Add Template:="Normal"
Selection.Style = ActiveDocument.Styles("Normal")
Selection.ParagraphFormat.TabStops.ClearAll
ActiveDocument.DefaultTabStop = CentimetersToPoints(1.27)
Selection.ParagraphFormat.TabStops.Add Position:=CentimetersToPoints(5), _
Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderSpaces

Selection.TypeText (sStats)
End Sub
 
Back
Top