This example sets the number style and starting number for the third outline-numbered list template. Because the style uses uppercase letters and the starting number is 4, the first letter is D.
Set mylev = ListGalleries(wdOutlineNumberGallery) _
.ListTemplates(3).ListLevels(1)
With mylev
.NumberStyle = wdListNumberStyleUppercaseLetter
.StartAt = 4
End With