VBA - Удаление лишних пробелов Word

VBA - Удаление лишних пробелов Word

NoBrain

Пользователь

Сообщения: 50
Благодарности: 0

Ребят помогите проблему решить.
В общем создаю код который бы форматировал документ (документ всегда стандартный, т.к. выгружается из определенной ИС и там куча ляпов которые нужно редактировать).

Одним из фрагментов редактирования является удаление лишних пробелов (2 и более).
Долго заморачиваться не стал и записал макрос:

Код:

DeleteSpace Макрос
' Удаление лишних пробелов
'
    Selection.WholeStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " {2;}"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

Другого способа я не знаю.
По результатам выполнения этого кода цель достигается, только всегда выскакивает такое сообщение:

Это конечно не смертельно, но хотелось бы его убрать что ли. Что бы оно либо не появлялось вообще, либо автоматически кнопка "нет" нажималась.

Можно ли решить эту проблему? Помогите пожалуйста.

Отправлено: 18:22, 13-08-2012

Iska

Ветеран

Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать

Цитата NoBrain:

Долго заморачиваться не стал »

Стоило попробовать.

Код:

Option Explicit

Sub RemoveMultiSpaces()
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        
        .Text = " {2;}"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
        
        .Execute Replace:=wdReplaceAll
    End With
End Sub

Это сообщение посчитали полезным следующие участники:

Delirium

Отправлено: 22:12, 13-08-2012 | #2