Sub SpaceBalls()
  Dim aRng As Range, aSty As Style
  Set aRng = ActiveDocument.Content
  Set aSty = ActiveDocument.Styles(wdStyleHtmlPre)
  aSty.ParagraphFormat.Alignment = wdAlignParagraphDistribute
  With aRng.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^g"
    .Replacement.Text = "^& "
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchWildcards = False
    .Execute Replace:=wdReplaceAll
    .Text = "[ ]{2,}"
    .Replacement.Text = " "
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll
    .Format = True
    .Text = "^g"
    .Replacement.Text = "^&"
    .MatchWildcards = False
    .Replacement.Style = aSty 
    .Execute Replace:=wdReplaceAll
  End With
End Sub