ListFormat.ApplyListTemplate-Methode (Word)
Weist dem angegebenen ListFormat-Objekt mehrere Listenformatierungsmerkmale zu.
Syntax
Ausdruck. ApplyListTemplate( _ListTemplate_ , _ContinuePreviousList_ , _ApplyTo_ , _DefaultListBehavior_ )
Ausdruck: Erforderlich. 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 | Der Teil der Liste, auf den die Listenvorlage angewendet werden soll. Dies kann eine der folgenden WdListApplyTo-Konstanten sein: wdListSelection, wdListWholeList oder wdListThisPointForward. |
| 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 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. |
Beispiel
In diesem Beispiel wird der Variablen myRange ein Bereich im aktiven Dokument zugewiesen und überprüft, ob in diesem Bereich eine Listenformatierung vorhanden ist. 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
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.