Application.ListGalleries (Word)

Retorna uma coleção ListGalleries que representa as galerias de modelo de lista de três.

Cada modelo de galeria (Com Marcadores, Numerada e de Vários Níveis) corresponde a uma guia na caixa de diálogo Marcadores e Numeração (menu Formatar). Para obter informações sobre como retornar um único membro de uma coleção, consulte retornando um objeto de uma coleção.

Set mylsttmp = _ 
 ListGalleries(wdOutlineNumberGallery).ListTemplates(2) 
ActiveDocument.Lists(1).ApplyListTemplate ListTemplate:=mylsttmp