Você pode criar uma macro que percorra todo o documento e aplique os espaços após o seu estilo. Aqui está uma amostra:
Selection.Find.ClearFormatting
Selection.Find.Style = ActiveDocument.Styles("DescriptionItem")
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = "^& "
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Você pode fazer a mesma coisa através da função Localizar / Substituir (Ctrl + H)