Как отключить сообщение при автозамене

[Посетитель 21.05.2023]

Произвожу поиск и автозамену по тексту при активации документа методом selection.find, как отключить всплывающие сообщения о количестве произведенных автозамен, особенно, когда их 0?

Selection.WholeStory
              Selection.Find.ClearFormatting
              Selection.Find.Replacement.ClearFormatting
  With Selection.Find
    .Text = "! !"
    .Replacement.Text = "!!"
    .Forward = True
    .Wrap = wdFindAsk
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

[Администратор]

В параметр "Wrap" запишите "wdFindStop":
.Wrap = wdFindStop

Выделять весь текст нет необходимости, достаточно поставить курсор в начало документа:
Selection.HomeKey Unit:=wdStory
А эту команду удалите: Selection.WholeStory

При использовании "wdFindStop" нужно не забывать, что если курсор находится не в начале файла, то будет обработан не весь документ: от курсора и до конца документа. Если выделен фрагмент, то будет обработан только выделенный фрагмент, а не весь документ.