ListGalleries Property Example

This example sets the variable mylsttmp to the second list template on the Outline Numbered tab in the Bullets and Numbering dialog box. The example then applies that template to the first list in the active document.

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

This example cycles through the ListGalleries collection and changes the templates in each list template gallery back to the built-in template.

For Each listgal In ListGalleries
    For i = 1 To 7
        listgal.Reset(i)
    Next i
Next listgal