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

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

Sub CheckTest()

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

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

Index

Meaning

1

Words

2

Characters

3

Paragraphs

4

Sentences

5

Sentences per Paragraph

6

Words per Sentence

7

Characters per Word

8

Passive Sentences

9

Flesch Reading Ease

10

Flesch-Kincaid Grade Level

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

Следующий макрос делает именно это:

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

Когда вы запускаете макрос, имейте в виду, что для его выполнения требуется немного времени.

Фактически, в зависимости от скорости вашей системы, длины вашего документа и его сложности для запуска может потребоваться довольно много времени. Потерпи; как только десять статистических данных заполнены, они отображаются на экране.

_Примечание: _

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

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (1784) применим к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:

link: / wordribbon-Only_Showing_Readability_Statistics [Отображение только статистики удобочитаемости].