Clase ListGallery (Word VBA)

La clase ListGallery representa una sola galería de formatos de lista. Para usar una variable de clase ListGallery, primero debe ser instanciado, por ejemplo

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

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos ListGallery en una colección.

Dim lgy As ListGallery
For Each lgy In ListGalleries
	
Next lgy

ListTemplates

Devuelve una colección ListTemplates que representa todos los formatos de lista de la galería de listas especificada.

Para obtener información sobre cómo devolver un solo miembro de una colección, vea devolver un objeto de una colección.

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 la plantilla de lista especificada no es la plantilla de lista integrada para esa posición de la Galería de listas.

Utilice el método Reset para configurar una plantilla de lista de una galería de lista en la plantilla de lista integrada.

Modified (Index)

Reset

Restablece la plantilla de lista especificada por Index, de la galería de listas especificada para el formato de plantilla de lista integrado.

Reset (Index)

Index: Plantilla que se debe restablecer.

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