دیو دوست دارد راهی برای چاپ یک شیوه نامه با ویژگی های کامل برای اسناد خود داشته باشد. او می‌داند که می‌تواند «سبک‌ها» را در کادر محاوره‌ای چاپ انتخاب کند، اما ترجیح می‌دهد یک شیوه نامه داشته باشد که سبک‌های واقعی، مانند رنگ، اندازه، فونت و غیره را نشان دهد.
متاسفانه چنین قابلیتی در Word وجود ندارد. با این حال، می توانید با استفاده از یک ماکرو، یک صفحه سبک دلخواه ایجاد کنید. به عنوان مثال، موارد زیر در سند فعلی، نام تمام سبک های موجود در سند را درج می کند. نام هر سبک در خط خود (پاراگراف) است و با استفاده از سبک های مختلف قالب بندی می شود.
Sub ListStyleNames() Dim s As Style For Each s In ActiveDocument.Styles With Selection .Style = s .TypeText (s.NameLocal) .TypeParagraph End With Next s End Sub
چنین رویکردی، اگرچه برای فهرست مختصری از سبک‌ها مفید است، اما بسیار آموزنده‌تر از آنچه که می‌توان با استفاده از نام «سبک‌ها» در کادر محاوره‌ای چاپ چاپ کرد، نیست. با این حال، مبنایی را فراهم می کند که می توان بر اساس آن یک شیوه نامه با ویژگی های کامل تر ایجاد کرد.
مشکل ایجاد یک شیوه نامه دقیق با استفاده از ماکروها این است که سبک ها می توانند حاوی اطلاعات زیادی باشند. مدل شی مورد استفاده توسط Word (و قابل دسترسی در VBA) هنگام آزمایش سبک ها برای دیدن محتوای آنها به سرعت بسیار پیچیده می شود. در اینجا فقط یک مثال ساده برای ارائه طعم به شما آورده شده است:
Sub SimpleStyleSheet() Dim s As Style Dim sOutput As String Dim sTemp As String Dim StyleTypes(4) As String StyleTypes(1) = "Paragraph" StyleTypes(2) = "Character" StyleTypes(3) = "Table" StyleTypes(4) = "List" For Each s In ActiveDocument.Styles sOutput = s.NameLocal & vbCrLf sOutput = sOutput & " Style type: " & StyleTypes(s.Type) & vbCrLf sTemp = s.BaseStyle If Len(sTemp) > 0 Then sOutput = sOutput & " Based on: " & s.BaseStyle & vbCrLf End If sOutput = sOutput & " Font: " & s.Font.Name sTemp = "" If s.Font.Bold Then sTemp = sTemp & "Bold, " If s.Font.Italic Then sTemp = sTemp & "Italic, " If Len(sTemp) > 0 Then sTemp = Left(sTemp, Len(sTemp) - 2) sOutput = sOutput & " (" & sTemp & ")" End If sOutput = sOutput & vbCrLf & vbCrLf Selection.TypeText (sOutput) Next s End Sub
تنها کاری که این ماکرو انجام می دهد این است که همه سبک ها را فهرست می کند، نوع سبک هایی که هستند، اینکه آیا بر اساس یک سبک متفاوت هستند (و اگر چنین است، نام آن سبک چیست)، چه فونتی توسط سبک استفاده می شود، و اینکه آیا فونت درشت یا مورب است. هر کسی که با سبک ها آشنا باشد بلافاصله متوجه می شود که این چند مورد تنها نمونه کوچکی از آنچه می توان در یک سبک تعریف کرد است. بررسی همه فرمت‌های سبک ممکن و چاپ آنها در شیوه نامه، ماکرو را بسیار طولانی می‌کند.
با این حال، این ماکرو ممکن است مفید باشد زیرا ایده ای در مورد نحوه چیدمان شیوه نامه خود ارائه می دهد. شما فقط باید بفهمید که چه چیزی را می خواهید در شیوه نامه ببینید و سپس کد ماکرو را برای تعیین آن اطلاعات اضافه کنید و آن را چاپ کنید.
