Application.ListGalleries (Word)

Devuelve una colección ListGalleries que representa las tres galerías de plantillas de lista.

Cada galería de plantillas (Con viñetas, Numerado y Esquema numerado) corresponde a una ficha del cuadro de diálogo Numeración y viñetas (menú Formato).

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