اجرای فهرست کلمات استفاده نکنید

Question

روهان برای شرکتی کار می کند که از روش جدیدی برای نوشتن حروف استفاده می کند که شامل لیستی از تقریباً صد کلمه "پیچیده" است که هرگز نباید هنگام نوشتن استفاده شود. او به دنبال بهترین راه برای هشدار در صورت استفاده از هر یک از کلمات لیست در یک سند است.

راه های مختلفی وجود دارد که می توان این کار را انجام داد و بهترین انتخاب به نحوه انجام کار در دفتر شما و ترجیحات شخصی بستگی دارد. به عنوان مثال، یک راه ساده برای مدیریت کلمات این است که آنها را به چیزی که Word فرهنگ لغت "حذف" می نامد اضافه کنید. اساساً، این روشی برای اصلاح فایل‌های مورد استفاده توسط غلط‌گیر املا است به طوری که یک کلمه خاص همیشه به عنوان غلط املایی علامت‌گذاری می‌شود. اگر صد کلمه را به لیست حذف اضافه کنید، همیشه به عنوان غلط املایی علامت گذاری می شوند. نحوه افزودن کلمات به فرهنگ لغت حذف در شماره های دیگر WordTips پوشش داده شده است . شما می توانید اطلاعات را در اینجا پیدا کنید:

https://wordribbon.PCcloob.ir/T008695

اطلاعات مشابهی نیز در سایت Word MVP در اینجا موجود است:

https://wordmvp.com/FAQs/General/ExcludeWordFromDic.htm

راه دیگری که می‌توانید به فهرست خود نزدیک شوید، ایجاد ورودی‌های تصحیح خودکار برای هر یک از کلمات است. هنگامی که یکی از کلمات تایپ می شود، می توانید آن را به طور خودکار با نسخه ای از کلمه جایگزین کنید که در قالب قابل توجهی است که توجه را به این واقعیت جلب می کند که کلمه استفاده شده است. اگر ترجیح می دهید، می توانید به سادگی کلمه را با یک فاصله جایگزین کنید، که به این معنی است که کلمه توهین آمیز هر زمان که تایپ می شود به طور خودکار "پاک می شود".

همچنین رویکردهای کلان وجود دارد که می توانید از آنها استفاده کنید. اینها در درجه اول برای اجرا در نقاط مختلف توسعه سند مفید خواهند بود. ماکرو تقریباً می تواند هر کاری را که شما تصمیم بگیرید انجام دهد انجام دهد. به عنوان مثال، ممکن است به سادگی کلمات توهین آمیزی را که در سند یافت شده است جمع آوری کند و به شما اطلاع دهد که آنها پیدا شده اند، بدون اینکه در واقع هیچ تغییری ایجاد کند. ماکرو زیر این کار را انجام می دهد.

Sub DoNotUseList()
    Dim Word As Range
    Dim ForbiddenWords(2) As String
    Dim ForbiddenWord As Variant
    Dim BadList As String

    " Populate array with forbidden words
    " Remember to modify the size of the array above
    ForbiddenWords(0) = "cat"
    ForbiddenWords(1) = "dog"
    ForbiddenWords(2) = "mouse"

    BadList = "The following forbidden words have been identified:"
    For Each Word In ActiveDocument.Words
        For Each ForbiddenWord In ForbiddenWords
            If LCase(Trim(Word.Text)) = ForbiddenWord Then
                BadList = BadList & vbCrLf & ForbiddenWord
            End If
        Next
    Next

    MsgBox BadList, vbOKOnly, "Forbidden Words"
End Sub

برای تغییر کلماتی که در لیست ممنوعه هستند، کافی است اندازه و محتوای آرایه ForbiddenWords را تغییر دهید. شما باید مطمئن شوید که هیچ حروف بزرگ و هیچ عبارتی در محتوای آرایه وجود ندارد. هنگامی که ماکرو را اجرا می کنید، هر یک از کلمات موجود در سند با هر یک از کلمات ممنوعه بررسی می شود و در صورت یافتن کلمه در پایان به شما اطلاع داده می شود.

راه‌های مشابه دیگر مبتنی بر کلان برای رسیدگی به این نوع مشکلات در شماره‌های دیگر WordTips ارائه شده است :

https://wordribbon.PCcloob.ir/T001173