ListFormat.ApplyOutlineNumberDefault-Methode (Word)

Wendet das Standardnummerierungsschema für Gliederungen auf die Absätze im Bereich des angegebenen ListFormat-Objekts an.

Syntax

Ausdruck. ApplyOutlineNumberDefault( _DefaultListBehavior_ )

Ausdruck: 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 (mit Microsoft Word 97 kompatible Formatierung verwenden) oder wdWord9ListBehavior (weborientierte Formatierung verwenden). Aus Kompatibilitätsgründen ist die Standardkonstante wdWord8ListBehavior, aber in neuen Prozeduren sollten Sie wdWord9ListBehavior verwenden, um die verbesserte weborientierte Formatierung in Bezug auf Einzüge und Listen mit mehreren Ebenen zu nutzen.

HinwBemerkungeneise

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

ListFormat-Objekt

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.