Readibility Statistics

[cmsix]

I'm an author and I use word mostly for spellchecking and grammar checking
during proofing. I also like to take a look at the readability statistics
both per chapter and over the complete work. Is there no way to get the
readability statistics dialog without going through the entire spell and
grammar checking process?

cmsix

 

[Dawn Crosier]

Here is a macro that should help work for you.

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


--
Dawn Crosier
"Education Lasts a Lifetime"

This message was sent to a newsgroup. Please post back to the newsgroup so
all may follow the thread.

 

[cmsix]

Thank you so much for your reply. I'm sure that the macro would do just fine
if I had any idea what to do with it. I'm sure that you went to a lot of
trouble but I'm afraid it is over my head.

cmsix

 

[Dawn Crosier]

OK - Here is what you want to do.

From your Tools menu, select Macro, Select Record New Macro.

Call it ReadabilityStatistics
If you want to assign a Hot Key to call the Macro (Such as ALT+R - click the
Keyboard button and type ALT+R)
Click Assign and then Click OK
Now Word will be displayed with a new toolbar showing. Click the little
square dot that is on the macro toolbar. It is called "Stop Recording"

From my email message, select all the text that begins with Sub
ReadabilityStatistics and ends with End Sub
Copy it.

In Word, from the tools menu, select Macro, Macros.

Highlight ReadabilityStatistics and click the Edit Button Your cursor will
be in the Visual Basic Editor and will be on a line following Sub
ReadabilityStatistics(). Highlight from Sub to End Sub and then click your
Paste Icon or CTRL+V. That will paste all the text into the macro.

If something shows up in Red - check the line for extra characters such as

, or an extra End Sub.

From the File menu, select File Close and Return to Microsoft Word.

Now you should be able to ALT+R and have the macro run OR from the Tools,
Macro, Macros dialog select ReadabilityStatistics and click Run.

You will get a message box returned with the statistics listed for you.

Let me know if you still have problems and I will try to help.

Have Fun!

--
Dawn Crosier
"Education Lasts a Lifetime"

This message was sent to a newsgroup. Please post back to the newsgroup so
all may follow the thread.

 

[Suzanne S. Barnhill]

See http://www.gmayor.dsl.pipex.com/installing_macro.htm

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://www.mvps.org/word
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

 

[cmsix]

Thanks again for trying to help me with this. I hope top posting my reply is
proper here.

I followed your instructions but I fear something must be incorrect either
with the version of word I have. (Office 2000 on Windows XP) of there must
be some other problem along the way.

When I paste the text of you message into the Visual Basic Editor, and I was
careful to only use the portion that you directed, everything between the
comment and End Sub is red.

I tried running it anyway and it stops with an alert box saying:

Compile error:

Syntax error

When I click OK on the alert, Sub ReadabilityStatistics(), is highlighted in
yellow and there is a little yellow arrow in the left margin pointing to it.
The M in the first MsgBox is the begining of the red text and the " at the
end of "Readability Statistics" is the last red character.

I want to thank you again for your efforts but I'm afraid it might be a lost
cause.

cmsix

 

[cmsix]

Thank you for the pointer to that page. It seems it might have told me
exactly what is wrong with my efforts. It mentioned that the newsreader
might make a mess of the listing and I'm afraid that is what has happened.

cmsix

 

[Graham Mayor]

This is an indication that the line has broken prematurely in the editor,
and a piece of vba programming that could benefit from some readability of
its own.

The problem here is that the main body of the code is intended to go on one
line
and that will not fit the editor. The following has been split correctly and
if you have the same line length set in your news editor, should transfer to
your vba editor without problem.

Every line of the main code should have a '_' character. But really the code
needs tidying up and I haven't the time to do that at present.

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

See http://www.gmayor.dsl.pipex.com/installing_macro.htm


--
<>>< ><<> ><<> <>>< ><<> <>>< <>>< ><<>
Graham Mayor - Word MVP
E-mail (e-mail address removed)
Web site www.gmayor.dsl.pipex.com
Word MVP web site www.mvps.org/word
<>>< ><<> ><<> <>>< ><<> <>>< <>>< ><<>

 

[cmsix]

Thank you so much, it works now.

cmsix

This is an indication that the line has broken prematurely in the editor,
and a piece of vba programming that could benefit from some readability of
its own.

The problem here is that the main body of the code is intended to go on one
line
and that will not fit the editor. The following has been split correctly and
if you have the same line length set in your news editor, should transfer to
your vba editor without problem.

Every line of the main code should have a '_' character. But really the code
needs tidying up and I haven't the time to do that at present.

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

See http://www.gmayor.dsl.pipex.com/installing_macro.htm


--
<>>< ><<> ><<> <>>< ><<> <>>< <>>< ><<>
Graham Mayor - Word MVP
E-mail (e-mail address removed)
Web site www.gmayor.dsl.pipex.com
Word MVP web site www.mvps.org/word
<>>< ><<> ><<> <>>< ><<> <>>< <>>< ><<>