Range.SetListLevel (Word)

Sets the list level for one or more items in a numbered list.

SetListLevel (Level)

Level: A number that indicates the new list level.

Dim iLevel As Integer: iLevel =  
ActiveDocument.Range.SetListLevel Level:=iLevel