ListFormat.ApplyBulletDefault-Methode (Word)
Fügt den Absätzen im Bereich des angegebenen ListFormat-Objekts Aufzählungszeichen und Formatierungen hinzu.
Syntax
Ausdruck.
ApplyBulletDefault( _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 (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. |
Hinweise
Wurden die Absätze bereits mit Aufzählungszeichen formatiert, entfernt diese Methode die Aufzählungszeichen und die Formatierung.
Beispiel
In diesem Beispiel werden den Absätzen in der Markierung Aufzählungszeichen und Formatierungen hinzugefügt. Wenn bereits Aufzählungszeichen in der Markierung vorhanden sind, werden in diesem Beispiel die Aufzählungszeichen und die Formatierung entfernt.
Selection.Range.ListFormat.ApplyBulletDefault
In diesem Beispiel wird dem zweiten Absatz in MyDoc.doc ein Aufzählungszeichen und eine Formatierung hinzugefügt, oder es wird ein Aufzählungszeichen und die Formatierung entfernt.
Documents("MyDoc.doc").Paragraphs(2).Range.ListFormat _
.ApplyBulletDefault
In diesem Beispiel wird die Variable myRange auf einen Bereich mit den Absätzen drei bis sechs des aktiven Dokuments festgelegt, und es wird überprüft, ob der Bereich eine Listenformatierung enthält. Wenn keine Listenformatierung vorhanden ist, 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.ApplyBulletDefault
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.