Perform readability statistics

Hello,

I know that I can get the readability statistics when I execute a grammar
check, but is there a way to simply execute the readability statistics
without running a complete grammar check. Just run it on the text as is? i
am specifically trying to get the Flesch score for a document at the click of
a button without any interaction on the behalf of the user.

Thank you,

QB

JeanGuyMarcil
Thu Feb 21 07:38:00 PST 2008

"Question Boy" wrote:

> Hello,
>
> I know that I can get the readability statistics when I execute a grammar
> check, but is there a way to simply execute the readability statistics
> without running a complete grammar check. Just run it on the text as is? i
> am specifically trying to get the Flesch score for a document at the click of
> a button without any interaction on the behalf of the user.
>

Sub Readability()

Dim rsDoc As ReadabilityStatistic

Set rsDoc = ActiveDocument.Range.ReadabilityStatistics(9)

MsgBox "Readability for this document: " & rsDoc.Value & "."

End Sub


You may need to add code to make sure that the whole document is set to the
same language or an error will be generated.

Charlie
Thu Feb 21 12:22:04 PST 2008

QB,

Try this:

Dim rs As Variant ' ReadabilityStatistics, StatText as string
StatText = "Document Statistics:" & vbCr
For Each rs In Documents(1).ReadabilityStatistics
StatText = StatText & rs.Name & " - " & rs.Value & vbCr
Next rs
MsgBox StatText

Charlie in Texas



On Thu, 21 Feb 2008 05:52:01 -0800, Question Boy
<QuestionBoy@discussions.microsoft.com> wrote:

>Hello,
>
>I know that I can get the readability statistics when I execute a grammar
>check, but is there a way to simply execute the readability statistics
>without running a complete grammar check. Just run it on the text as is? i
>am specifically trying to get the Flesch score for a document at the click of
>a button without any interaction on the behalf of the user.
>
>Thank you,
>
>QB