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.
Wendet das Standardnummerierungsschema für Gliederungen auf die Absätze im Bereich des angegebenen ListFormat-Objekts an.
Syntax
Ausdruck.
ApplyOutlineNumberDefault( _DefaultListBehavior_ )
expression Erforderlich. Eine Variable, die ein 'ListFormat'-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| DefaultListBehavior | Optional | Variant | Legt einen Wert fest, der angibt, ob Microsoft Word für eine bessere Listenanzeige die neue weborientierte Formatierung verwendet. Kann eine der folgenden Konstanten sein: wdWord8ListBehavior (verwenden Sie eine Formatierung, die mit Microsoft Word 97 kompatibel ist) oder wdWord9ListBehavior (verwenden Sie eine weborientierte Formatierung). Aus Kompatibilitätsgründen ist wdWord8ListBehavior die Standardkonstante, aber in neuen Prozeduren sollten Sie wdWord9ListBehavior verwenden, um die Vorteile der verbesserten weborientierten Formatierung in Bezug auf Einrückungen und mehrstufige Listen zu nutzen. |
Hinweise
Wurden die Absätze bereits als Gliederung formatiert, entfernt diese Methode die Nummerierung und die Formatierung. Diese Methode entfernt keine integrierten Formatvorlagen für Überschriften, die auf Absätze angewendet wurden.
Beispiel
In diesem Beispiel werden die Absätze in der Markierung mit einer Gliederungsnummerierung versehen. Wenn es sich bei der Markierung bereits um eine Gliederung handelt, werden in diesem Beispiel die Nummerierung und die Formatierung entfernt.
Selection.Range.ListFormat.ApplyOutlineNumberDefault
In diesem Beispiel wird der Variablen myRange ein Bereich mit den Absätzen drei bis sechs des aktiven Dokuments zugewiesen und überprüft, ob der Bereich eine Listenformatierung enthält. Wenn keine Listenformatierung gefunden wird, werden Standardaufzählungszeichen hinzugefügt.
Set myDoc = ActiveDocument
Set myRange = myDoc.Range( _
Start:= myDoc.Paragraphs(3).Range.Start, _
End:=myDoc.Paragraphs(6).Range.End)
If myRange.ListFormat.ListType = wdListNoNumbering Then
myRange.ListFormat.ApplyOutlineNumberDefault
End If
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.