Clase ListGallery (Word VBA)

La clase ListGallery representa una sola galería de formatos de lista.

Set

Para usar una variable de clase ListGallery, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase ListGallery : Application.ListGalleries y ListGalleries.Item

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

ListGalleries.Count

Devuelve un Long que representa el número de galerías de listas de la colección.

Dim lngCount As Long
lngCount = ListGalleries.Count

ListGalleries.Item

Devuelve un objeto ListGalleries individual de una colección.

Sintaxis : expression.Item (Index)

Index: El objeto individual que se va a devolver.

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

ListGalleries.Parent

Devuelve un objeto Object que representa el objeto primario del objeto ListGalleries especificado.

Dim objParent As Object
Set objParent = ListGalleries.Parent

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.

Sintaxis : expression.Modified (Index)

Parent

Devuelve un objeto Object que representa el objeto primario del objeto ListGallery especificado.

Dim objParent As Object
Set objParent = ListGalleries(1).Parent

Reset

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

Sintaxis : expression.Reset (Index)

Index: Plantilla que se debe restablecer.

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