OutlineNumbered Property Example

This example changes the selected outline-numbered list to a single-level numbered list.

Selection.Range.ListFormat.ListTemplate.OutlineNumbered = False

This example checks to see whether the third list in MyDoc.doc is an outline-numbered list. If it is, the third outline-numbered list template is applied to it.

Set myltemp = Documents("MyDoc.doc").Lists(3).Range _
    .ListFormat.ListTemplate
num = myltemp.OutlineNumbered
If num = True Then ActiveDocument.Lists(3).ApplyListTemplate _
    ListTemplate:=ListGalleries(wdOutlineNumberGallery) _
    .ListTemplates(3)