ListLevel.TrailingCharacter procedure builder

ListLevel.TrailingCharacter (Word)

Returns or sets the character inserted after the number for the specified list level.

wdTrailingNone - No character is inserted, wdTrailingSpace - A space is inserted. Default, wdTrailingTab - A tab is inserted.
r = 0 
For Each lev In ListGalleries(wdOutlineNumberGallery) _ 
 lev.Alignment = wdListLevelAlignLeft 
 lev.NumberPosition = r 
 lev.TextPosition = r 
 lev.TrailingCharacter = wdTrailingSpace 
 r = r + 18 
Next lev