Welcome toWord.Tips.Net
Ask a Word Question
Make a Comment
Learn Access Now
Free Printable Forms
Beauty Tips
Car Tips
Cleaning Tips
College Tips
Cooking Tips
Excel2007 Tips
ExcelTips
Family Tips
Gardening Tips
Health Tips
Home Tips
Legal Tips
Money Tips
Organizing Tips
Pest Tips
Pet Tips
Wedding Tips
Word2007 Tips
WordTips
Collapsing and Expanding Subdocuments
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
Take Control! Master the real power behind Word! Successfully master the secrets of powerful formatting and create documents that stand out from the rest. Best of all, you can create documents that are easy to maintain and quick to change.