[Guest]

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

[XXXX Pro]

В Word есть такая возможность: "записать макрос" (где-то в меню) - ты выполняешь какие-то действия, а Word сам кодирует  их в виде VBScript.
Поэтому сделай так: включи запись макроса, а дальше "Правка/Заменить", укажи искать два пробела "  " и заменять на один " ", и сделай глобальную замену. После этого выключи запись макроса и он будет готов.