یافتن جملات طولانی

Question

بروس به دنبال راهی برای علامت گذاری خودکار جملات طولانی در یک سند توسط Word است. به عنوان مثال، او ممکن است بخواهد جملاتی با بیش از 20 کلمه با رنگ مشخصی داشته باشد تا به راحتی پیدا شوند.

خوشبختانه، Word مجموعه‌ای از جمله‌ها را که از طریق VBA قابل دسترسی است، نگهداری می‌کند که از هر جمله در یک سند تشکیل شده است. شما می توانید هر مورد در این مجموعه (هر جمله جداگانه) را بررسی کنید تا مشخص کنید که آیا طول آن بیشتر از طول مورد نظر شما است یا خیر. ماکرو زیر نمونه ای از نحوه انجام این کار را ارائه می دهد.

Sub Mark_Long()
    Dim iMyCount As Integer
    Dim iWords As Integer

    If Not ActiveDocument.Saved Then
        ActiveDocument.Save
    End If

    "Reset counter
    iMyCount = 0 

    "Set number of words
    iWords = 20

    For Each MySent In ActiveDocument.Sentences
        If MySent.Words.Count > iWords Then 
            MySent.Font.Color = wdColorRed
            iMyCount = iMyCount + 1
        End If
    Next
    MsgBox iMyCount & " sentences longer than " & _
      iWords & " words."
End Sub

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