Произвожу поиск и автозамену по тексту при активации документа методом 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" нужно не забывать, что если курсор находится не в начале файла, то будет обработан не весь документ: от курсора и до конца документа. Если выделен фрагмент, то будет обработан только выделенный фрагмент, а не весь документ.