شما می توانید تعداد سبک های موجود در یک سند (هنگام ایجاد یک ماکرو VBA) را با استفاده از ویژگی Count با شی Styles تعیین کنید. این کار با استفاده از سینتکس زیر انجام می شود:
x = ActiveDocument.Styles.Count
که در آن x متغیری است که می توانید در سایر خطوط ماکرو VBA استفاده کنید. توجه داشته باشید که این تابع نشان می دهد که چه تعداد از آنها تعریف شده اند، نه اینکه چه تعداد از آنها واقعاً در حال استفاده هستند. این بدان معنی است که سبک های داخلی نیز به حساب می آیند. اگر میخواهید سبکهای داخلی را حذف کنید، میتوانید تعداد تکراری سبکها را به این صورت انجام دهید:
x = 0
For Each objStyle in ActiveDocument.Styles
If Not objStyle.BuiltIn Then x = x + 1
Next objStyle
