NumberFormat Property Example

This example creates a list template that indents each level and formats the level with an arabic numeral and a period. The new list template is then applied to the selection.

Set LT = ActiveDocument.ListTemplates.Add(OutlineNumbered:=True)
For x = 1 To 9
    With LT.ListLevels(x)
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = InchesToPoints(0.25 * (x - 1))
        .TextPosition = InchesToPoints(0.25 * x)
        .NumberFormat = "%" & x & "."
    End With
Next x
Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=LT