استفاده از عناصر طراحی تکراری در یک سند غیر معمول نیست. به عنوان مثال، شما ممکن است بخواهید که همه تکرارهای یک کلمه خاص با حروف کج درشت، در اندازه نقطه مشخصی ظاهر شوند. در حالی که مطمئناً می توانید قالب بندی را با دست انجام دهید، بسیار کارآمدتر است که به یک ماکرو اجازه دهید کار را برای شما انجام دهد. با مدیریت قالب بندی به این صورت، نیازی نیست نگران به خاطر سپردن این کلمه باشید که چگونه باید ظاهر شود. این ماکرو، FormatWords، نمونه ای از چنین ماکروهایی است.
Sub FormatWords() Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "Warning!" .Replacement.Text = "" .Replacement.Font.Bold = True .Replacement.Font.Italic = True .Forward = True .Wrap = wdFindContinue .MatchWholeWord = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub
وقتی این ماکرو را اجرا می کنید، همه موارد کلمه Warning (به دنبال آن علامت تعجب) را جستجو می کند و قالب بندی آن را تغییر می دهد تا کلمه پررنگ و مورب باشد.
