当您对文档进行语法检查时,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_网站上的任何其他页面)中描述的宏,我准备了一个包含有用信息的特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

(Microsoft Word是世界上最流行的文字处理软件。)本技巧(1784)适用于Microsoft Word 97、2000、2002和2003。您可以在Word(Word 2007)的功能区界面中找到此技巧的版本。和更高版本)在这里: