Быстро показать статистику читабельности в Microsoft Word

Question

Существует ли быстрый способ показать статистику читабельности для документов Microsoft Word 2013 или 2016 без необходимости их предварительного исправления?

Я знаю, как включить статистику читабельности, чтобы она отображалась, когда вы заканчиваете проверять орфографию и грамматику. Тем не менее, инструкции Microsoft говорят:

Важное замечание: Необходимо исправить или игнорировать все орфографические ошибки, найденные в документе, прежде чем отобразится статистика читабельности. Если в файле все еще есть красные загогулины, статистика читабельности не будет отображаться.

Я хочу получить статистику читабельности длинных плохо написанных документов, которые часто содержат много не словарных терминов, поэтому мне не нужно сначала все исправлять. Даже просто многократное попадание в Игнор занимает много времени. Есть ли способ, чтобы я мог вызвать диалог статистики, чтобы показать, не проходя всю проверку орфографии? Возможно, используя VBA?

Я попытался пометить весь текст как "Не проверять орфографию или грамматику", но тогда я просто вижу нули для всей статистики.

Answer 1

Вам нужен макрос VBA для отображения этих значений без завершения проверки орфографии.

Документ должен быть сначала сохранен как .docm чтобы разрешить макросы, затем используйте Alt+F11 для входа в редактор VBA, используйте меню « Вставка»> «Модуль» и установите следующее:

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

Вы можете использовать F5 в редакторе для запуска / тестирования макроса. При повседневном использовании вы можете запускать макрос на вкладке «Разработчик» или « Назначить макрос для кнопки на ленте» или « Добавление макроса на панель быстрого доступа».

Источник: только отображение статистики читабельности.