جستجوی صفت ها و قیدها

Question

زبان انگلیسی از انواع مختلفی از کلمات تشکیل شده است. اسم، فعل، صفت، قید و غیره وجود دارد که هر کدام هدف خاصی را در دستور زبان یک جمله پر می کنند. (بعضی می گویند انگلیسی زبان سختی برای یادگیری است. من همیشه پاسخ می دهم که برای من خیلی سخت به نظر نمی رسید - در واقع از کودکی آن را یاد گرفتم. :))

در تجزیه و تحلیل یک سند، ممکن است بخواهید بدانید که چه تعداد از یک نوع کلمه خاص در یک جمله استفاده شده است. به عنوان مثال، ممکن است بخواهید تعیین کنید که چه تعداد صفت و قید در سند شما وجود دارد. متأسفانه Word ابزار داخلی برای مکان یابی چنین کلماتی ارائه نمی دهد.

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

قیدها داستان متفاوتی هستند. اکثر قیدها به حروف "ly" ختم می شوند و بیشتر کلماتی که به "ly" ختم می شوند قید هستند. این قانون، اگرچه 100٪ دقیق نیست، حداقل به شما نوعی دستورالعمل می دهد که بر اساس آن می توانید یک ماکرو بسازید. ماکرو زیر را در نظر بگیرید:

Sub FindAdverbs()
    Dim r As Range

    For Each r In ActiveDocument.Words
        If Right(Trim(r.Text), 2) = "ly" Then
            r.Italic = Not r.Italic
            r.Bold = Not r.Bold
        End If
    Next r
End Sub

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