仅显示可读性统计信息（Microsoft Word）

发表于： 2020年11月12日 2020年11月12日

对文档进行语法检查时，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是世界上最流行的文字处理软件。）本技巧（10666）适用于Microsoft Word 2007、2010、2013和2016。您可以在此处找到适用于Word较旧菜单界面的本技巧的版本：

仅显示可读性统计信息。