از آنجایی که من در حال قالب بندی اسناد هستم، بارها وجود دارد که نیاز دارم یک کلمه یا متن خاص به دو صورت پررنگ و مورب قالب بندی شود. Word شامل ابزارهایی (در برگه صفحه اصلی نوار) است که حروف برجسته و مورب را اعمال میکند، اما حروف برجسته را ندارد. من از انجام دو کلیک خسته شدم، بنابراین ابزار خود را ایجاد کردم تا هر دو فرمت را همزمان اعمال کنم. سپس ماکرو به دست آمده را می توان به نوار ابزار دسترسی سریع اختصاص داد.
ساده ترین راه برای انجام این کار با ماکرو است:
Sub BoldItalics1()
Selection.Font.Bold = True
Selection.Font.Italic = True
End Sub
این ماکرو ویژگیها را روشن میکند، اما هیچ تغییری انجام نمیدهد. به عبارت دیگر، نمیتوانید با استفاده از همان ماکرو، حروف برجسته را خاموش کنید، همانطور که میتوانید با ابزارهای Bold و Italics تکی. این منجر به ماکرو "نسل بعدی" شد که اساساً وضعیت متن انتخاب شده را قبل از ایجاد هرگونه تغییر بررسی می کند:
Sub BoldItalics2()
With Selection.Font
If .Bold And .Italic Then
.Bold = False
.Italic = False
Else
.Bold = True
.Italic = True
End If
End With
End Sub
ماکرو بررسی می کند که آیا ویژگی Bold و Italic برای انتخاب تنظیم شده است یا خیر. اگر چنین است، آن ویژگی ها را خاموش می کند. اگر نه، آنها را روی True تنظیم می کند. نتیجه این است که انتخاب شما یا روی پررنگ و مورب «کامل» تنظیم میشود یا آن ویژگیها خاموش میشوند—شما در پایان با ویژگیها مخلوط نخواهید شد.
