Prev: This action cannot be completed
Next: disabling check spelling and grammar
From: Chunsheng Li Chunsheng on 15 May 2010 01:51
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

From: Peter Jamieson on 18 May 2010 13:06
Maybe the following article will help:

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


Peter Jamieson

http://tips.pjmsn.me.uk

On 15/05/2010 06:51, Chunsheng Li wrote:
> 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
>
 | 
Pages: 1
Prev: This action cannot be completed
Next: disabling check spelling and grammar