شمارش کلمات در نظرات

Question

لیندا نمی‌داند آیا راهی برای شمارش تعداد کلماتی که در نظرات (و فقط نظرات) در یک سند وجود دارد وجود دارد؟

ساده ترین راه برای انجام این کار استفاده از ماکرو است. این به این دلیل است که Word مجموعه ای از نظرات را در اختیار VBA قرار می دهد که شامل همه نظرات در سند است. تنها کاری که باید انجام دهید این است که هر نظر را مرور کنید و سپس به ویژگی Count برای مجموعه Words برای نظر نگاه کنید، به این ترتیب:

Sub CommentWordCount1()
    Dim c As Comment
    Dim lWords As Long
    Dim sMsg As String

    For Each c In ActiveDocument.Comments
        lWords = lWords + c.Range.Words.Count
    Next c

    sMsg = "There are " & ActiveDocument.Comments.Count
    sMsg = sMsg & " comments in the document. & vbCrLf & vbCrLf
    sMsg = sMsg & "Word count: " & lWords
    MsgBox sMsg
End Sub

اگر ترجیح می دهید، می توانید از روش ComputeStatistics نیز برای بدست آوردن تعداد کلمات استفاده کنید، مانند این:

Sub CommentWordCount2()
    Dim c As Comment
    Dim lWords As Long
    Dim sMsg As String

    For Each c In ActiveDocument.Comments
        lWords = lWords + c.Range.ComputeStatistics(wdStatisticWords)
    Next c

    sMsg = "There are " & ActiveDocument.Comments.Count
    sMsg = sMsg & " comments in the document. & vbCrLf & vbCrLf
    sMsg = sMsg & "Word count: " & lWords
    MsgBox sMsg
End Sub

وقتی نتایج دو ماکرو را با هم مقایسه می کنید، ممکن است متوجه تفاوت در تعداد کلمات شوید. این به دلیل روشی است که روش CompuStatistics هنگام انجام محاسبات خود با علائم نقطه گذاری برخورد می کند. شما می خواهید نتایج را مقایسه کنید و بر اساس ویژگی های اطلاعات در نظرات خود، رویکردی را انتخاب کنید که به بهترین وجه با نیازهای شما مطابقت دارد.