RE: MS Word readability index

["VERKERKEN Wouter" <Wouter -dot- VERKERKEN -at- swift -dot- com>]

   Hi = all,



   Thank you all for your help. = Maggie sent  me a macro. I adapted it
   to the one below, which gives word count and = Flesch  index
   (=what I needed). I'd thought I'd share it with  you.



   Cheers,

   Wouter



   -----

   Sub Readability()
   MsgBox  ActiveDocument.Content.ReadabilityStatistics(1).Value,
   vbOKOnly, "Word  Count"
   MsgBox ActiveDocument.Content.ReadabilityStatistics(9).Value, 
   vbOKOnly, "Flesch"
   End Sub

   -----

   ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

WebWorks ePublisher Pro for Word features support for every major Help
format plus PDF, HTML and more. Flexible, precise, and efficient content
delivery. Try it today! http://www.webworks.com/techwr-l

Easily create HTML or Microsoft Word content and convert to any popular Help file format or printed documentation. Learn more at http://www.DocToHelp.com/TechwrlList

---
You are currently subscribed to TECHWR-L as archive -at- infoinfocus -dot- com -dot- 

To unsubscribe send a blank email to
techwr-l-unsubscribe -at- lists -dot- techwr-l -dot- com
or visit http://lists.techwr-l.com/mailman/options/techwr-l/archive%40infoinfocus.com


To subscribe, send a blank email to techwr-l-join -at- lists -dot- techwr-l -dot- com

Send administrative questions to lisa -at- techwr-l -dot- com -dot-  Visit
http://www.techwr-l.com/techwhirl/ for more resources and info.