Range.ComputeStatistics-Methode (Word)
Gibt einen Wert vom Typ Long zurück, der eine Statistik zurückgibt, die auf dem Inhalt des angegebenen Bereichs basiert.
Syntax
Ausdruck. ComputeStatistics
( _Statistic_
)
Ausdruck: Erforderlich. Eine Variable, die ein Range -Objekt darstellt.
Parameter
Name | Erforderlich/Optional | Datentyp | Beschreibung |
---|---|---|---|
Kenngröße | Erforderlich | WdStatistic | Der Typ der zu berechnenden Statistik. |
HinwBemerkungeneise
Einige der oben aufgeführten Konstanten stehen Ihnen möglicherweise nicht zur Verfügung, abhängig von der Sprachunterstützung (z. B. US-Englisch), die Sie ausgewählt oder installiert haben.
Die für Table.Cell Range zurückgegebene Statistik ist ungenau, da der Zellendemarker die Statistik beeinträchtigt. Das Abschneiden des Bereichs zum Entfernen des Zellendemarkers führt zu dem richtigen Statistikwert.
Set cell = Documents("Report.doc").Tables(1).Cell(1, 1)
Set myRange = cell.Range
lineCount = myRange.ComputeStatistics(Statistic:=wdStatisticLines) 'Returns 0
rng.MoveEnd wdCharacter, -1
lineCount = myRange.ComputeStatistics(Statistic:=wdStatisticLines)
MsgBox "The first cell contains " & lineCount _
& " lines."
Beispiel
In diesem Beispiel wird die Anzahl von Wörtern und Zeichen im ersten Absatz der Datei Report.doc angezeigt.
Set myRange = Documents("Report.doc").Paragraphs(1).Range
wordCount = myRange.ComputeStatistics(Statistic:=wdStatisticWords)
charCount = myRange.ComputeStatistics(Statistic:=wdStatisticCharacters)
MsgBox "The first paragraph contains " & wordCount _
& " words and a total of " & charCount & " characters."
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für