Пробелы, после зяпятой

[Юра154]

Как после каждой запятой поставить автоматическое проставление ПРОБЕЛА "текст,(пробел)текст..?"

[Sasha_Smirnov]

По аналогии с темой автозамены слов (http://programmersforum.ru/showthread.php?p=1536643):

Sub AutoClose() 'только срабатывает при закрытии документа (а не при открытии, как AutoOpen())
'ActiveDocument.Range.AutoFormat 'это автоформат — типа причёсывания перед выходом!
Selection.HomeKey wdStory 'перевод курсора в начало основного текста

With Selection.Find               'соответствует нажатию Ctrl-h в документе Word (диалог поиска и замены)
    .Text = "^$,"                 'ищет (и выделяет) букву с примыкающей запятой
    .Replacement.Text = "^& "     'меняет всё это на то же самое, но с пробелом
    .Execute Replace:=wdReplaceAll'во всём основном тексте
End With

End Sub