Classe ListGallery (Word VBA)

La classe ListGallery représente une seule galerie des formats de liste. Pour utiliser une variable de classe ListGallery, elle doit d'abord être instanciée, par exemple

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

For Each

Voici un exemple de traitement des éléments ListGallery dans une collection

Dim lgy As ListGallery
For Each lgy In ListGalleries
	
Next lgy

ListTemplates

Renvoie une collection ListTemplates qui représente tous les formats de liste de la bibliothèque de listes spécifiée.

Pour plus d’informations sur le renvoi d’un seul membre d’une collection, voir renvoi d’un objet à partir d’une collection.

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 si le modèle de liste spécifié n'est pas le modèle de liste prédéfini situé à cet emplacement dans la bibliothèque de listes.

Utilisez la méthode Reset pour définir un modèle de liste dans une bibliothèque de listes dans le modèle de liste prédéfini.

Modified (Index)

Reset

Rétablit la mise en forme de liste d'origine pour le modèle de liste désigné par Index dans la série de modèles de liste spécifiée.

Reset (Index)

Index: Modèle à réinitialiser.

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