Word count for a particular style?

[Guest]

Greetings, I hope that one of the VBA a wizards can say "Oh that's easy.....

Q; Can I use the ComputeStatistics function to calculate the number of words
in a document that are formated with a particular style or create a breakdown
of words by style? ... and if so, can you please point me in the right
direction of where to find more information.

Kind Regards and thanks for your time.

Dave

 

[Jay Freedman]

Hi Dave,

For a single style, or just a few styles, you don't need a macro.
First go to the Tools > Options > Edit dialog and check the box for
"Keep track of formatting". Open the Styles and Formatting task pane.
Click the down arrow next to the style name (or right-click the style
name itself) and choose "Select all x instances". Then click Tools >
Word Count and read off the statistics for that style.

Writing a macro to get a word count for each style isn't quite
trivial, but it wouldn't be very difficult. The general idea is this:
The outer loop is For Each style in ActiveDocument.Styles ... Next.
Within that loop, set a Range object equal to ActiveDocument.Range,
then use that Range object's .Find to search for occurrences of the
current style. Each time it's found, use the Range object's
..ComputeStatistics(wdStatisticWords) method to get the number of words
in that occurrence and add it to a running total for the style. Keep
the results in a N x 2 array where the first column is the style name
and the second column is the final value of the running total for that
style.

If you need more guidance, ask in the
microsoft.public.word.vba.beginners newsgroup
(http://www.microsoft.com/communitie...t.aspx?dg=microsoft.public.word.vba.beginners).

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so all may benefit.

 

[Guest]

Jay, That's fantastic! for now I'll use the manual but quick method. Later
when I have some time I'll visit the vba forum. This will make writing
college assignments so much easier. Just formatting using styles will allow
for adjusting the word count to omit Fig and Table captions etc. So, Job Done!

Thanks again for your time and efforts.

Kind Regards,

Dave Morgan

 

[Jessica Weissman]

I need to do something similar that includes styled text in the document
headers and footers. In my experiments it seems unclear that Activedocument
includes these. If I want to do the job for everything, do I have to use the
Storyrange stuff?