This example sets the variable myDoc
to a range that includes paragraphs three through six of the active document. The example then either applies the default outline-numbered list format to the range or removes it, depending on whether or not the format was already applied to the range.
Set myDoc = ActiveDocument
Set myRange = _
myDoc.Range(Start:= myDoc.Paragraphs(3).Range.Start, _
End:=myDoc.Paragraphs(6).Range.End)
myRange.ListFormat.ApplyOutlineNumberDefault
This example applies the second list template on the Numbered tab in the Bullets and Numbering dialog box to all the paragraphs in the selection.
Selection.Range.ListFormat.ApplyListTemplate _
ListTemplate:=ListGalleries(wdNumberGallery).ListTemplates(2)