ListFormat.ApplyListTemplateWithLevel-Methode (Word)

  • Artikel

Wendet eine Reihe von Listenformatierungsmerkmalen an, optional für eine angegebene Ebene.

Syntax

Ausdruck. ApplyListTemplateWithLevel( _ListTemplate_ , _ContinuePreviousList_ , _ApplyTo_ , _DefaultListBehavior_ , _ApplyLevel_ )

Ausdruck Eine Variable, die ein ListFormat-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
ListTemplate Erforderlich ListTemplate Die anzuwendende Listenvorlage.
ContinuePreviousList Optional Variant True, wenn die Nummerierung der vorherigen Liste fortgesetzt werden soll. False, wenn mit einer neuen Liste begonnen werden soll.
ApplyTo Optional Variant Eine der WdListApplyTo-Konstanten , die den Teil der Liste angibt, auf den die Listenvorlage angewendet wird.
DefaultListBehavior Optional Variant Legt einen Wert fest, der angibt, ob Microsoft Word für eine bessere Listenanzeige die neue weborientierte Formatierung verwendet. Dies kann eine der folgenden WdDefaultListBehavior-Konstanten sein: wdWord8ListBehavior (mit Microsoft Word 97 kompatible Formatierung verwenden) oder wdWord9ListBehavior (weborientierte Formatierung verwenden). Aus Gründen der Kompatibilität ist wdWord8ListBehavior die Standardkonstante, in neuen Prozeduren sollten Sie jedoch wdWord9ListBehavior verwenden, um die verbesserte weborientierte Formatierung zum Einrücken von Listen und für Listen mit mehreren Ebenen zu nutzen.
ApplyLevel Optional Variant Die Ebene, auf die die Listenvorlage angewendet wird

Beispiel

Im folgenden Beispiel wird die Variable myRange auf einen Bereich im aktiven Dokument festgelegt, und anschließend wird überprüft, ob der Bereich eine Listenformatierung aufweist. Wenn keine Listenformatierung zugewiesen wurde, wird dem Bereich die vierte Listenvorlage für Gliederungsnummern zugewiesen.

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.ApplyListTemplate _ 
 ListTemplate:=ListGalleries(wdOutlineNumberGallery) _ 
 .ListTemplates(4) 
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.