подскажите,как убрать пробелы вот из этого документа?

Sub mrepl140103_2323()
''замена переносов
mrepl "-^p", ""
''замена разрывов строки на редкий символ-обратная кавычка
mrepl "^p", "`"
''возврат типичных разрывов строки
mrepl ".`", ".^p"
mrepl "!`", "!^p"
mrepl "?`", "?^p"
mrepl ";`", ";^p"
''замена всех остальных на пробел
mrepl "`", " "
''в 90 случаях из 100 нормальный результат
''---------------но увы-------------
''не все так просто, особенно на стыке страниц и разрыве разделов/колонок
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub
Sub mrepl(n1z, n2z)
Selection.Find.ClearFormatting
 Selection.Find.Replacement.ClearFormatting
 With Selection.Find
  .Text = n1z
  .Replacement.Text = n2z
  .Forward = True
  .Wrap = wdFindContinue
  .Format = False
  .MatchCase = False
  .MatchWholeWord = False
  .MatchByte = False
  .MatchWildcards = False
  .MatchSoundsLike = False
  .MatchAllWordForms = False
 End With
 Selection.Find.Execute Replace:=wdReplaceAll
End Sub