Classe ListGallery (Word VBA)

A classe ListGallery representa uma única galeria de formatos de lista. O objeto ListGallery é um membro da coleção ListGalleries. Para usar uma variável de classe ListGallery, ela primeiro precisa ser instanciada por exemplo

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

For Each

Aqui está um exemplo de processamento dos itens ListGallery em uma coleção.

Dim lgy As ListGallery
For Each lgy In ListGalleries
	
Next lgy

ListTemplates

Retorna uma coleção ListTemplates que representa todos os formatos de lista para a Galeria de listas especificada. Somente leitura.

Para obter informações sobre como retornar um único membro de uma coleção, consulte retornando um objeto de uma coleção. A propriedade ListTemplates é um membro dos objetos Document, ListGallerye Template .

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 se o modelo de lista especificado não é o modelo de lista interno para esta posição na Galeria de listas. Boolean somente leitura.

Use o método Reset para definir um modelo de lista em uma galeria de lista volta para o modelo de lista interno.

Modified (Index)

Reset

Redefine o modelo de lista especificado por Index para a galeria de listas especificada como o formato do modelo de lista interno.

Reset (Index)

Index: O modelo a ser redefinido.

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