ListTemplates Property Example

This example sets the variable mytemp to the first list template on the Outline Numbered tab in the Bullets and Numbering dialog box. The template is modified to use lowercase letters for each level, and it's applied to the second list in the active document.

Set mytemp = ListGalleries(wdOutlineNumberGallery).ListTemplates(1)
For each lev in mytemp.ListLevels
    lev.NumberStyle = wdListNumberStyleLowercaseLetter
Next lev
ActiveDocument.Lists(2).ApplyListTemplate ListTemplate:=mytemp

This example displays the number of list templates used in the active document.

Msgbox ActiveDocument.ListTemplates.Count