OutlineNumbered Property
True if the specified ListTemplate object is outline numbered. Read/write Boolean.
expression.OutlineNumbered
expression Required. An expression that returns a ListTemplate object.
Remarks
Setting this property to False converts the list template to a single-level list that uses the formatting of the first level.
You cannot set this property for a ListTemplate object returned from a ListGallery object.
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)