Nur Lesbarkeitsstatistik anzeigen (Microsoft Word)
Wenn Sie eine Grammatikprüfung für Ihr Dokument durchführen, besteht der allerletzte Schritt, den Word ausführt, darin, eine Reihe von Lesbarkeitsstatistiken anzuzeigen, mit denen Sie die Darstellung Ihres Inhalts analysieren können. Es kann vorkommen, dass Sie nur die Lesbarkeitsstatistik anzeigen möchten, ohne zuvor die vollständige Grammatikprüfung durchlaufen zu haben. Leider bietet Word keine Möglichkeit, dies zu tun. Sie können jedoch ein Makro erstellen, das die Lesbarkeitsstatistik recht gut anzeigt. Das Herzstück eines solchen Makros wäre die ReadabilityStatistics-Sammlung.
Betrachten Sie das folgende einzeilige Makro, um eine Vorstellung davon zu bekommen, wie ein solches Makro geschrieben werden könnte:
Sub CheckTest() MsgBox ActiveDocument.Content.ReadabilityStatistics(9).Value End Sub
Dieses Makro zeigt eine Zahl an, die den Flesch Reading Ease-Wert darstellt, das neunte Mitglied der ReadabilityStatistics-Auflistung. Die Sammlung enthält 10 einzelne Elemente:
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 |
Um alle zehn Statistiken anzuzeigen (wie dies bei einer vollständigen Grammatikprüfung Ihres Dokuments der Fall wäre), müssen Sie lediglich Ihr Makro durch die verschiedenen Mitglieder der Sammlung führen und deren Werte anzeigen.
Das folgende Makro macht genau das:
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
Beachten Sie beim Ausführen des Makros, dass die Ausführung einige Zeit in Anspruch nimmt.
Abhängig von der Geschwindigkeit Ihres Systems, der Länge Ihres Dokuments und seiner Komplexität kann die Ausführung einige Zeit in Anspruch nehmen. Sei geduldig; Sobald die zehn Statistiken abgeschlossen sind, werden sie auf dem Bildschirm angezeigt.
_Hinweis: _
Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.
WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.
(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (1784) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier: