Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Gibt die Anzahl der Aufzählungs- oder Nummerierungszeichen und LISTNUM-Felder im angegebenen ListFormat-Objekt zurück.
Syntax
Ausdruck. CountNumberedItems
Ausdruck Eine Variable, die ein ListFormat-Objekt darstellt.
Beispiel
In diesem Beispiel wird die aktuelle Markierung mithilfe der zweiten Vorlage für nummerierte Listen als Liste formatiert. Anschließend werden die Aufzählungszeichen und LISTNUM-Felder im aktiven Dokument gezählt, und das Ergebnis wird in einem Meldungsfeld angezeigt.
Selection.Range.ListFormat.ApplyListTemplate _
ListTemplate:=ListGalleries(wdNumberGallery).ListTemplates(2)
Msgbox ActiveDocument.CountNumberedItems
In diesem Beispiel wird die Anzahl der Aufzählungszeichen erster Ebene im aktiven Dokument gezählt.
Msgbox ActiveDocument.Content.ListFormat _
.CountNumberedItems(Level:=1)
In diesem Beispiel wird die Anzahl der LISTNUM-Felder in der Variablen myRange gezählt. Das Ergebnis wird in einem Meldungsfeld angezeigt.
Set myDoc = ActiveDocumentSet myRange = _
myDoc.Range(Start:=myDoc.Paragraphs(12).Range.Start, _
End:=myDoc.Paragraphs(50).Range.End)
numfields = myRange.ListFormat.CountNumberedItems(wdNumberListNum)
Msgbox numfields
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.