[Guest]

примерно так:
With ActiveDocument.Content.Find
* *.ClearFormatting
* *.Replacement.ClearFormatting
* *.Text = " *"
* *.Replacement.Text = ""
* *.Execute Replace:=wdReplaceAll
End With
по-моему должно работать