Range.ListFormat (Word)

Retorna um objeto ListFormat que representa todas as características de formatação de lista de um intervalo. Somente leitura.

Set myDoc = ActiveDocument 
Set myRange = _ 
 myDoc.Range(Start:= myDoc.Paragraphs(3).Range.Start, _ 
 End:=myDoc.Paragraphs(6).Range.End) 
myRange.ListFormat.ApplyOutlineNumberDefault