Font looks different in Outlook vs Word

[livetohike]

Word 2000
Is there any way to get the doc stats (word count, Flesch-Kincaid
Index, etc.) w/o having to through the entire document and click
Ignore each time Word flags something it does not like?

 

[Graham Mayor]

Run the following macro:

Sub ReadabilityStatistics()
'Display the Readability Statistics without performing a Spell Check
MsgBox "Counts" & vbCrLf _
& " Words " & vbTab & vbTab & vbTab _
& ActiveDocument.Content.ReadabilityStatistics(1).Value _
& vbCrLf & " Characters " & vbTab & vbTab & _
ActiveDocument.Content.ReadabilityStatistics(2).Value _
& vbCrLf & " Paragraphs " & vbTab & vbTab & _
ActiveDocument.Content.ReadabilityStatistics(3).Value _
& vbCrLf & " Sentences " & vbTab & 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 & _
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, _
vbOKOnly, " Readability Statistics"
End Sub


http://www.gmayor.com/installing_macro.htm

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>