راج به این فکر می‌کند که آیا می‌توان سبک‌ها را در یک ماکرو Word ذخیره کرد و بعداً به عنوان بخشی از "بررسی سلامت عقل" اجرا کرد تا مطمئن شود که فقط سبک‌های الگو بر روی یک سند اعمال می‌شوند و هیچ چیز دیگری.
پاسخ به این سوال در واقع بسیار پیچیده تر از آن چیزی است که شما ممکن است حدس بزنید. اگر راج بخواهد کاربر را از اضافه کردن سبک به طور مستقیم (با ایجاد سبک های جدید) یا غیرمستقیم (با استفاده از کپی و چسباندن از منابع دیگر) باز دارد، در واقع چندین چیز وجود دارد که می توانید امتحان کنید، از جمله چند ماکرو. این موارد در موارد زیر پوشش داده شده است (em>WordTip:
https://wordribbon.PCcloob.ir/T012698
فراتر از آنچه در این نکته پوشش داده شده است، اگر تنها کاری که می‌خواهید انجام دهید این است که ببینید آیا سبک‌های استفاده شده در یک سند در «فهرست تأییدشده» سبک‌ها قرار دارند یا خیر، کار نسبتاً ساده‌ای است. نام سبک ها را می توان به راحتی در یک آرایه رشته ای ذخیره کرد و سپس با سبک های اعمال شده برای هر پاراگراف در یک سند مقایسه کرد. می‌توانید پاراگراف‌های یک سند را طی کنید و با استفاده از ساختاری شبیه به این بررسی کنید که آیا سبک‌ها در لیست تأیید شده هستند یا خیر:
sTemp = ""
For Each p In ActiveDocument.Content.Paragraphs
sPStyle = p.Style
bNotFound = True
For J = 1 To iNumValid
If sPStyle = sValidStyles(J) Then bNotFound = False
Next J
If bNotFound Then
sTemp = sTemp & sPStyle & vbCrLf
End If
Next p
این مثال به سادگی یک قطعه کد است. ماکرو کامل شما باید یک آرایه رشته ای (sValidStyles) راه اندازی کند که شامل همه نام های سبک معتبر به همراه iNumValid است که تعداد عناصر آرایه است. هنگامی که قطعه کامل شد، متغیر sTemp حاوی نام تمام سبک های استفاده شده در سند است که در آرایه sValidStyles نیستند. (اگر یک سبک نامعتبر بیش از یک بار در سند ظاهر شود، بیش از یک بار در sTemp ظاهر می شود. .)
اگر به دنبال یک کلان هستید که در واقع یک "بررسی سلامت عقل" انجام دهد تا ببیند آیا یک سبک اصلاح شده است یا خیر، مشکل از نظر نجومی پیچیده تر است. سبک‌ها می‌توانند امتیازها یا صدها تنظیمات ممکن داشته باشند و ذخیره هر یک از این تنظیمات برای هر سبک معتبر یک کابوس است. در آن شرایط، بهتر است با رویکردهای مبتنی بر حفاظت که در نکته مرتبط با بالا توضیح داده شده است بروید.
