Klasse ListGallery (Word VBA)

Die Klasse ListGallery stellt einen einzelnen Katalog von Listenformaten dar. Um eine ListGallery -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim lgy as ListGallery
Set lgy = ListGalleries(Index:=1)

For Each

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

Dim lgy As ListGallery
For Each lgy In ListGalleries
	
Next lgy

ListTemplates

Gibt eine ListTemplates -Auflistung zurück, die alle Listenformate für den angegebenen Listenkatalog darstellt.

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

Set mytemp = ListGalleries(wdOutlineNumberGallery).ListTemplates(1) 
For each lev in mytemp.ListLevels 
 lev.NumberStyle = wdListNumberStyleLowercaseLetter 
Next lev 
ActiveDocument.Lists(2).ApplyListTemplate ListTemplate:=mytemp

Modified

True, wenn es sich bei der angegebenen Listenvorlage nicht um die integrierte Listenvorlage für diese Position im Listenkatalog handelt.

Verwenden Sie die Reset -Methode, um eine Listenvorlage in einem Listenkatalog zurück auf die integrierte Listenvorlage festzulegen.

Modified (Index)

Reset

Setzt die Listenvorlage, die durch Index für den angegebenen Listenkatalog angegeben wurde, auf das integrierte Listenvorlagenformat zurück.

Reset (Index)

Index: Die zurückzusetzende Vorlage.

ListGalleries(wdNumberGallery).Reset(4) 
Selection.Range.ListFormat.ApplyListTemplate _ 
 ListTemplate:=ListGalleries(2).ListTemplates(4)