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.
Weist dem angegebenen ListFormat-Objekt mehrere Listenformatierungsmerkmale zu.
Syntax
Ausdruck verwendet werden. ApplyListTemplate (ListTemplate, ContinuePreviousList, ApplyTo, DefaultListBehavior)
expression Erforderlich. Eine Variable, die ein List-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. |
| Anwenden auf | Optional | Variant | Der Teil der Liste, auf den die Listenvorlage angewendet werden soll. Kann eine der folgenden WdListApplyTo-Konstanten sein: wdListApplyToSelection, wdListApplyToWholeList oder wdListApplyToThisPointForward. |
| DefaultListBehavior | Optional | Variant | Legt einen Wert fest, der angibt, ob Microsoft Word eine neue weborientierte Formatierung für eine bessere Listendarstellung verwendet. Kann eine der folgenden WdDefaultListBehavior-Konstanten sein: wdWord8ListBehavior (verwenden einer Formatierung, die mit Microsoft Word 97 kompatibel ist) oder wdWord9ListBehavior (weborientierte Formatierung verwenden). Aus Kompatibilitätsgründen ist die Standardkonstante wdWord8ListBehavior, 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. |
Beispiel
Dieses Beispiel legt die Variable myRange auf einen Bereich im aktiven Dokument fest und überprüft anschließend, ob der Bereich 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
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.