1

Тема: Макрос для удаления лишних пробелов

Данный макрос определяет имеются ли в тексте лишние пробелы и повторяет удаление пробелов столько раз, сколько это необходимо:

    With Selection.Find
        .Text = "  "
        .Replacement.Text = " "
    End With
    a = Selection.Find.Execute
    ' Если в тексте имеются сдвоенные пробелы, то a = True. 
    ' Если сдвоенные пробелы отсутствуют, то a = False. 
    ' Очередной цикл выполняется при наличии сдвоенных пробелов
    Do While a = True
        a = Selection.Find.Execute
        Selection.Find.Execute Replace:=wdReplaceAll
        Selection.HomeKey Unit:=wdStory
    Loop
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.