passive sentences is always zero

[Chunsheng Li]

When we execute the macro about getting the ReadabilityStatistics of the word,
the Passive sentences is always 0. Please help me to solve the problem.
OS:Windows 2003 (Chinese RPC)
office 2007.

Sub ReadabilityStatistics()
'Display the Readability Statistics without performing a Spell Check
MsgBox "Counts" & vbCrLf & _
" Words " & 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 & vbTab &
ActiveDocument.Content.ReadabilityStatistics(5).Value & vbCrLf & _
" Words Per Sentence " & vbTab & vbTab &
ActiveDocument.Content.ReadabilityStatistics(6).Value & vbCrLf & _
" Characters Per Word " & vbTab & vbTab &
ActiveDocument.Content.ReadabilityStatistics(7).Value & vbCrLf & _
vbCrLf & "Readability " & vbCrLf & _
" Passive Sentences " & vbTab & vbTab &
ActiveDocument.Content.ReadabilityStatistics(8).Value & "%" & vbCrLf & _
" Flesch Reading Ease " & vbTab & vbTab &
ActiveDocument.Content.ReadabilityStatistics(9).Value & vbCrLf & _
" Flesch-Kincaid Grade Level" & vbTab & vbTab &
ActiveDocument.Content.ReadabilityStatistics(10).Value, vbOKOnly,
"Readability Statistics"
End Sub

 

[Peter Jamieson]

Maybe the following article will help:

http://support.microsoft.com/kb/273900


Peter Jamieson

http://tips.pjmsn.me.uk