TextPosition Property

Microsoft Word Visual Basic

object. Read/write Single.

expression.TextPosition

expression    Required. An expression that returns a ListLevel object.

Example

This example sets the indentation for all 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