NumberPosition Property Example

This example sets the indentation for all the levels of the third outline-numbered list template. Each list level is indented 0.25 inch (18 points) more than the preceding level.

r = 0
For Each lev In ListGalleries(wdOutlineNumberGallery) _
    .ListTemplates(3).ListLevels
        lev.Alignment = wdListLevelAlignLeft
        lev.NumberPosition = r
        r = r + 18
Next lev

This example sets the indent for the first level of the last numbered list template to 0.5 inch.

With ListGalleries(wdNumberGallery).ListTemplates(7).ListLevels(1)
    .Alignment = wdListLevelAlignLeft
    .NumberPosition = InchesToPoints(0.5)
End With