Как скрыть уведомление после выполнения макроса в Word?

Question

[Prefaer900]

Создал простенький макрос, чтобы в выделенном фрагменте документа ms office word удалять все пустые строки, но после его выполнения появляется уведомление: "Мы сделали несколько замен в выделенном фрагменте. Продолжить поиск в оставшейся части документа?". Можно ли как то это уведомление отключить в коде макроса или может каким то другим способом? код макроса прикрепляю. (В VBA не силен, от слова совсем).

Макрос тут

Sub Макрос1()
'
' Макрос1 Макрос
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p^p"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Answer 1

[Sergey В.]

Используйте Application.DisplayAlerts
В начале макроса:
Application.DisplayAlerts = wdAlertsNone
в конце не забудьте обратно включить:
Application.DisplayAlerts = wdAlertsAll

Comments

[Prefaer900]

уведомления теперь нет, но макрос срабатывает для всего документа, а не для выделенного фрагмента текста

[Sergey В.]

Prefaer900, скорее свсего, причина в том, что у Вас после выполнения первой замены сбивается Selection.
Т.е. становятся выбранными другие ячейки.
Чтобы этого избежать, в начала макроса обычно фиксируют Selection в переменную, и потом производят обработку уже этой переменной.

[Prefaer900]

В VBA не силен, от слова совсем

[Sergey В.]

Prefaer900, тут три варианта:
- идти на биржу фриланса и заказывать написание кода с нужным функционалом;
- изучать всё самостоятельно, задавая уточняющие вопросы на профильных форумах или здесь;
- ждать, пока за Вас кто-нибудь всё сделает при наличии свободного времени и желания.
На Ваш начальный (уточняющий) вопрос я ответил. Чем смог - помог. Полностью подгонять макрос под Ваши требования желания не имею.