Determining How Many Styles are Available

Summary: Got a macro that processes or uses styles? You definitely need to know how many styles Word has available in the document. Use the Count property of the Styles collection to determine the figure. (This tip works with Microsoft Word 97, Word 2000, Word 2002, Word 2003, and Word 2007.)

You can determine the number of styles available in a document (when creating a VBA macro) by using the Count property with the Styles object. This is done using the following syntax:

x = ActiveDocument.Styles.Count

where x is the variable you can then use in other VBA macro lines. Note that this function indicates how many have been defined, not how many of those are actually in use. This means that built-in styles are also counted. If you want to exclude built-in styles, you can do an actual iterative count of the styles in this manner:

x = 0
For Each objStyle in ActiveDocument.Styles
    If Not objStyle.BuiltIn Then x = x + 1
Next objStyle

Tip #803 applies to Microsoft Word versions: 97 | 2000 | 2002 | 2003 | 2007

Create Rock-Solid Lists! Bulleted and numbered lists can help make your writing clearer and easier to follow. If not done properly, however, they can be a nightmare to work with. Discover the ins and outs of Word's lists with this great reference available in two versions.

Check out Word Bullets and Numbering today!

Helpful Links

Newest Tips

Subscribe

RSS Feeds

Determining How Many Styles are Available