Passive sentences is always zero

[Chunsheng Li]

When I execute the following code, the Passive sentences is always zero.
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

Now Passvie Senteces is always zero?

Can anyone tell me how to solve the problem. Thanks Very much!

[Doug Robbins - Word MVP]

As suggested by Peter Jamieson in response to your post in vba.general, see
http://support.microsoft.com/kb/273900

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com

"Chunsheng Li" <Chuns...@discussions.microsoft.com> wrote in message
news:E5278CE8-41E8-42BD...@microsoft.com...