Отображение только статистики удобочитаемости

Когда вы выполняете проверку грамматики в документе, последний шаг, выполняемый Word, – это отображение набора статистики удобочитаемости, которую вы можете использовать для анализа представления вашего контента. Бывают случаи, когда вы хотите отображать только статистику удобочитаемости без предварительной проверки грамматики. К сожалению, Word не позволяет это сделать. Однако вы можете создать макрос, который будет довольно хорошо отображать статистику удобочитаемости. Сердцем такого макроса будет коллекция ReadabilityStatistics.

Чтобы понять, как можно написать такой макрос, рассмотрим следующий однострочный макрос:

  Sub CheckTest () MsgBox ActiveDocument.Content.ReadabilityStatistics (9) .ValueEnd Sub 

Этот макрос отображает число, которое представляет значение Flesch Reading Ease, девятый член коллекции ReadabilityStatistics. В коллекции 10 отдельных элементов, а именно:

Чтобы отобразить все десять статистических данных (как это было бы при полной проверке грамматики вашего документа), все, что вам нужно сделать, это пройти макрос через различные элементы коллекции и отобразить их ценности. Следующий макрос делает именно это:

 Sub Readability () Dim DocStats As String Dim MBTitle As String Dim J As Integer MBTitle = "Readability Statistics" DocStats = "" With ActiveDocument.Content For J = 1  до 10 DocStats = DocStats & .ReadabilityStatistics (J) DocStats = DocStats & ":" DocStats = DocStats & .ReadabilityStatistics (J) .Value DocStats = DocStats & vbCrLf Next J End With MsgBox DocStats, vbOitkoEnly  #  p> Когда вы запускаете макрос, имейте в виду, что он требует времени для запуска.  Фактически, в зависимости от скорости вашей системы, длины вашего документа и его сложности для выполнения может потребоваться довольно много времени.  Потерпи;  как только десять статистических данных заполнены, они отображаются на экране.