Klasse ListTemplate - Listenvorlage (Word VBA)

Die Klasse ListTemplate stellt eine einzelne Listenvorlage dar, die alle Formatierungen enthält, durch die eine Liste definiert ist.

Um eine ListTemplate -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim lte as ListTemplate
Set lte = ActiveDocument.ListTemplates(Index:=1)

Die folgenden Prozeduren können zum Festlegen der ListTemplate Klassenvariablen verwendet werden : ListFormat.ListTemplate, Convert, ListTemplates.Add, ListTemplates.Item und Style.ListTemplate.

For Each

Hier ist ein Beispiel für die Verarbeitung der ListTemplate -Elemente in einer Sammlung

Dim lte As ListTemplate
For Each lte In ActiveDocument.ListTemplates
	
Next lte

Convert

Wandelt eine Liste mit mehreren Ebenen in eine Liste mit einer Ebene um.

Sie können die Convert -Methode nicht für eine Listenvorlage verwenden, die von der ListGalleries -Auflistung abgeleitet ist.

Convert (Level)

Level: Die Ebene, die zur Formatierung der neuen Liste verwendet wird.

ActiveDocument.ListTemplates(1).Convert

ListLevels

Gibt eine ListLevels -Auflistung zurück, die alle Ebenen für das angegebene ListTemplate-Wert darstellt.

Informationen zum Zurückgeben eines einzelnen Elements einer Auflistung finden Sie unter zurückgeben eines Objekts aus einer Auflistung.

Set myListTemp = _ 
 ListGalleries(wdOutlineNumberGallery).ListTemplates(1) 
For Each mylevel In myListTemp.ListLevels 
 mylevel.LinkedStyle = "Heading " & mylevel.index 
Next mylevel

Name

Gibt den Namen des angegebenen Objekts zurück oder legt ihn fest.

ActiveDocument.ListTemplates(1).Name =

OutlineNumbered

True , wenn das angegebene ListTemplate -Objekt Gliederung nummeriert ist.

Wenn Sie diese Eigenschaft auf false festlegen, wird die Listenvorlage in eine Liste mit einer Ebene konvertiert, die die Formatierung der ersten Ebene verwendet. Sie können diese Eigenschaft nicht für ein ListTemplate -Objekt festlegen, das von einem ListGallery -Objekt zurückgegeben wird.

Selection.Range.ListFormat.ListTemplate.OutlineNumbered = False