Help me print file statistics!

[Mark Trevail]

I am currently designing a template in Word 97 that our
typists use as our main letter template. Can I get Word
to print out the Readibility statistics so that this can
be passed to the person who dictated the letter, when the
letter is being printed out?

 

[Jay Freedman]

I am currently designing a template in Word 97 that our
typists use as our main letter template. Can I get Word
to print out the Readibility statistics so that this can
be passed to the person who dictated the letter, when the
letter is being printed out?

Hi, Mark,

There isn't any built-in way to print the statistics, but you can add this
set of macros to your template to do it.

Private Sub PrintStatistics()
Dim TempDoc As Document
Dim Stats As String
Dim rs As ReadabilityStatistic

Stats = ActiveDocument.FullName & vbCr
For Each rs In ActiveDocument.ReadabilityStatistics
Stats = Stats & vbCr & rs.Name & vbTab & rs.Value
Next rs

Set TempDoc = Documents.Add
With TempDoc
.Range.Text = Stats
.PrintOut Background:=False
.Close SaveChanges:=wdDoNotSaveChanges
End With
End Sub

Public Sub FilePrint()
Dialogs(wdDialogFilePrint).Show
PrintStatistics
End Sub

Public Sub FilePrintDefault()
ActiveDocument.PrintOut Background:=False
PrintStatistics
End Sub