print readability scores in Word?

[Guest]

In Word, How can I print Readability Scores on current document?

 

[Robert M. Franz (RMF)]

Hi Njtroj

In Word, How can I print Readability Scores on current document?

I think these are displayed in a dialog box only. You'd have to make a
screenshot of it (ALT-<printscreen>) and insert the box as a picture in
Word.

HTH
Robert

 

[Jay Freedman]

Hi Njtroj


I think these are displayed in a dialog box only. You'd have to make a
screenshot of it (ALT-<printscreen>) and insert the box as a picture
in Word.

HTH
Robert

If you install the following macro, it will insert the scores at the end of
the document. See http://www.gmayor.com/installing_macro.htm for
instructions.

Public Sub ReadabilityScore()
Const wdFleschReadingEase = 9
Const wdFleschKincaid = 10
Dim msg As String

msg = "Flesch Reading Ease Score = " & _
ActiveDocument.ReadabilityStatistics( _
wdFleschReadingEase).Value
msg = msg & vbCr & vbCr & _
"Flesch-Kincaid Readability Score = " & _
ActiveDocument.ReadabilityStatistics( _
wdFleschKincaid).Value

ActiveDocument.Range.InsertAfter vbCr & msg
End Sub

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.