Word به شما این امکان را می دهد که سبک هایی ایجاد کنید تا مشخص کنید متن در سند شما چگونه باید ظاهر شود. علاوه بر فهرست کاملی از سبک‌های داخلی، Word به شما امکان می‌دهد هر سبک سفارشی را که ممکن است بخواهید ایجاد کنید. بعداً می‌توانید یک شیوه نامه برای سند خود چاپ کنید، همانطور که در شماره‌های دیگر شرح داده شده است
.
با این حال، اگر لیستی از سبک های سفارشی را بخواهید چه می شود؟ Word دارای ویژگی‌ای نیست که به شما امکان می‌دهد در مورد سبک‌های چاپ شده در برگه سبک تفاوت قائل شوید. اگر می‌خواهید فهرستی از سبک‌های سفارشی مورد استفاده در یک سند داشته باشید، می‌توانید با استفاده از یک ماکرو یکی ایجاد کنید. ماکروهای زیر تمام استایل‌ها را طی می‌کند و فهرستی از آن‌هایی را که هر دو معیار (سفارشی و مورد استفاده را دارند) جمع‌آوری می‌کند: همچنین می‌توانید ویژگی ActivePrinter را بخوانید.
Sub PrintCustomStyles() Dim docThis As Document Dim styItem As Style Dim sUserDef(499) As String Dim iStyleCount As Integer Dim J As IntegerRef the active document Set docThis = ActiveDocument iStyleCount = 0 For Each styItem In docThis.Styles see if being used If styItem.InUse Then make sure not built in If Not styItem.BuiltIn Then iStyleCount = iStyleCount + 1 sUserDef(iStyleCount) = styItem.NameLocal End If End If Next styItem If iStyleCount > 0 ThenCreate the output document Documents.Add Selection.TypeText "User-defined Styles In Use" Selection.TypeParagraph For J = 1 To iStyleCount Selection.TypeText sUserDef(J) Selection.TypeParagraph Next J Selection.TypeParagraph Selection.TypeParagraph Else MsgBox "No custom styles in use." End If End Sub
به یاد داشته باشید که بین "سبک های سفارشی" و "سبک های سفارشی" تفاوت وجود دارد. (اگر ویژگی های پیش فرض سبک را تغییر دهید، یک سبک داخلی می تواند یک سبک سفارشی شده باشد.) این ماکرو لیستی از سبک های سفارشی را چاپ می کند. آن سبک هایی را که Word در نظر می گیرد کاملاً نادیده می گیرد.
