Klasse ReadabilityStatistic (Word VBA)

Die Klasse ReadabilityStatistic stellt eine der Lesbarkeitsstatistiken für ein Dokument oder einen Bereich dar.

Set

Um eine ReadabilityStatistic -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim rsc as ReadabilityStatistic
Set rsc = ActiveDocument.Range.ReadabilityStatistics(Index:=1)

Die folgenden Prozeduren können zum Festlegen der ReadabilityStatistic Klassenvariablen verwendet werden : ReadabilityStatistics.Item, Document.ReadabilityStatistics und Range.ReadabilityStatistics

For Each

Hier ist ein Beispiel für die Verarbeitung der ReadabilityStatistic -Elemente in einer Sammlung

Dim rsc As ReadabilityStatistic
For Each rsc In ActiveDocument.Range.ReadabilityStatistics
	
Next rsc

Name

Gibt den Namen des angegebenen Objekts zurück.

Dim strName As String
strName = ActiveDocument.Range.ReadabilityStatistics(1).Name

Parent

Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen ReadabilityStatistic-Objekts darstellt.

Dim objParent As Object
Set objParent = ActiveDocument.Range.ReadabilityStatistics(1).Parent

Value

Gibt den Wert der Grammatikstatistik zurück.

ActiveDocument.CheckGrammar 
MsgBox ActiveDocument.ReadabilityStatistics( _ 
 "Flesch Reading Ease").Value

ReadabilityStatistics.Count

Gibt einen Wert vom Typ Long zurück, der die Anzahl der Statistiken zur Lesbarkeit in der Auflistung darstellt.

Dim lngCount As Long
lngCount = ActiveDocument.Range.ReadabilityStatistics.Count

ReadabilityStatistics.Item

Gibt ein einzelnes ReadabilityStatistic -Objekt in einer Auflistung zurück.

Syntax : expression.Item (Index)

Index: Das einzelne Objekt zurückgegeben werden soll.

Dim rsc As ReadabilityStatistic
Set rsc = ActiveDocument.Range.ReadabilityStatistics(Index:=1)

ReadabilityStatistics.Parent

Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen ReadabilityStatistics-Objekts darstellt.

Dim objParent As Object
Set objParent = ActiveDocument.Range.ReadabilityStatistics.Parent