TextPosition Property Example

This example sets the indentation for all the levels of the first outline-numbered list template. Each list level number is indented 0.5 inch (36 points) from the previous level, the tab is set at 0.25 inch (18 points) from the number, and wrapping text is indented 0. 25 inch (18 points) from the number.

r = 0
For Each lev In ListGalleries(wdOutlineNumberGallery) _
        .ListTemplates(1).ListLevels
    lev.Alignment = wdListLevelAlignLeft
    lev.NumberPosition = r
    lev.TrailingCharacter = wdTrailingTab
    lev.TabPosition = r + 18
    lev.TextPosition = r + 18
    r = r + 36
Next lev