Application.ListGalleries (Word)

Returns a ListGalleries collection that represents the three list template galleries.

Each template gallery (Bulleted, Numbered, and Outline Numbered) corresponds to a tab in the Bullets and Numbering dialog box (Format menu). For information about returning a single member of a collection, see Returning an object from a collection.

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