Normand دارای اسنادی با حداکثر 25-30 سبک سفارشی است. نام این سبک ها با حروف NB شروع می شود. او میخواهد با تغییر NB به NF، نام سبکها را تغییر دهد. Normand می داند که چگونه این کار را یک به یک انجام دهد، اما به دنبال راهی برای پردازش دسته ای تغییرات است.
انجام این نوع تغییر با ماکرو آسان است. Word نام هر سبک را در اختیار VBA قرار می دهد که می تواند از طریق ماکرو نیز تغییر کند. در اینجا یک مثال است:
Sub ChangeStyleNames()
Dim s As Style
For Each s In ActiveDocument.Styles
If Left(s, 2) = "NB" Then s = "NF" & Mid(s, 3)
Next s
End Sub
ماکرو از هر سبک در سند عبور می کند و اگر دو حرف اول "NB" باشد، آن حروف را به "NF" تغییر می دهد. توجه داشته باشید که ماکرو فقط باید با اشیاء سبک فردی کار کند (که با متغیر s مشخص می شود) و خصوصیت NameLocal نیازی به ذکر صریح ندارد. این به این دلیل است که در غیاب یک ویژگی صریح، ویژگی NameLocal همان است. یکی به طور خودکار توسط VBA در نظر گرفته شده است.
ماکرو بسیار سریع اجرا می شود. در آزمایش روی سندی با تقریباً 400 سبک، تکمیل آن کمتر از 2 ثانیه طول کشید. همه سبک ها را، چه داخلی و چه تعریف شده توسط کاربر، بررسی می کند.
