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

Question

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

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

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

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

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

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

1

microsoft-word statistics grammar

Источник

JRI 13 янв '19 в 19:26

1 ответ

Решение

Другие вопросы по тегам microsoft-word statistics grammar

harrymc 13 янв '19 в 19:50 2019-01-13 19:50 · Accepted Answer · 2019-01-13 19:50

Вам нужен макрос 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 в редакторе для запуска / тестирования макроса. При повседневном использовании вы можете запускать макрос на вкладке "Разработчик", назначать макрос кнопке на ленте или делать " Добавление макроса на панель быстрого доступа".

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