ドキュメントの文法チェックを行うとき、Wordによって実行される最後のステップは、コンテンツの表示を分析するために使用できる一連の読みやすさの統計を表示することです。最初に完全な文法チェックを行わずに、読みやすさの統計のみを表示したい場合があります。残念ながら、Wordはこれを行う方法を提供していません。ただし、読みやすさの統計を非常にうまく表示するマクロを作成することはできます。このようなマクロの中心は、ReadabilityStatisticsコレクションです。

このようなマクロをどのように作成できるかを理解するには、次の1行のマクロを検討してください。

Sub CheckTest()

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

このマクロは、ReadabilityStatisticsコレクションの9番目のメンバーであるFlesch ReadingEase値を表す数値を表示します。コレクションには、次のように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

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 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

マクロを実行するときは、実行に少し時間がかかることを理解してください。

実際、システムの速度、ドキュメントの長さ、およびその複雑さによっては、実行にかなりの時間がかかる場合があります。我慢して; 10個の統計が完了すると、それらが画面に表示されます。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

link：/ wordribbon-WordTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（10666）は、Microsoft Word 2007、2010、2013、および2016に適用されます。Wordの古いメニューインターフェイス用のこのヒントのバージョンは、次の場所にあります。

link：/ word-Only_Showing_Readability_Statistics [読みやすさの統計のみを表示]。