Range.ListFormat (Word)

Renvoie un objet ListFormat qui représente toutes les caractéristiques de mise en forme de liste d’une plage.

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