فقط نمایش آمار خوانایی

Question

هنگامی که یک بررسی گرامری روی سند خود انجام می دهید، آخرین مرحله انجام شده توسط Word نمایش مجموعه ای از آمار خوانایی است که می توانید از آن برای تجزیه و تحلیل ارائه محتوای خود استفاده کنید. ممکن است مواقعی پیش بیاید که بخواهید فقط آمار خوانایی را بدون بررسی کامل دستور زبان نمایش دهید. متأسفانه Word راهی برای این کار ارائه نمی دهد. با این حال، می توانید یک ماکرو ایجاد کنید که آمار خوانایی را به خوبی نمایش دهد. قلب چنین کلان مجموعه ReadabilityStatistics خواهد بود.

برای دریافت ایده ای که چگونه می توان چنین ماکرو نوشت، ماکرو تک خطی زیر را در نظر بگیرید:

Sub CheckTest()
    MsgBox ActiveDocument.Content.ReadabilityStatistics(9).Value
End Sub

این ماکرو عددی را نشان می دهد که نشان دهنده مقدار Flesch Reading Ease، نهمین عضو مجموعه ReadabilityStatistics است. 10 عنصر مجزا در مجموعه وجود دارد که به شرح زیر است:

فهرست مطالب		معنی
1		کلمات
2		شخصیت ها
3		پاراگراف ها
4		جمله ها
5		جملات در پاراگراف
6		کلمات در هر جمله
7		کاراکتر در هر کلمه
8		جملات مجهول
9		Flesch Reading Ease
10		سطح درجه Flesch-Kincaid

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

Sub Readability()
    Dim DocStats As String
    Dim MBTitle As String
    Dim J As Integer

    MBTitle = "Readability Statistics"
    DocStats = ""
    With ActiveDocument.Content
        For J = 1 to 10
            DocStats = DocStats & .ReadabilityStatistics(J)
            DocStats = DocStats & ": "
            DocStats = DocStats & .ReadabilityStatistics(J).Value
            DocStats = DocStats & vbCrLf
        Next J
    End With
    MsgBox DocStats, vbOKOnly, MBTitle
End Sub

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