Необходимо создать макрос для поиска в документе фразы «Привет друг». Если она находится в документе, то выполняется Условие 1, если нет, то Условие 2.
If «Привет друг»
Условие 1
Else
Условие 2
End If
Макрос
Sub макрос()
' Поиск по всему документу. При этом диалог "Найти и заменить" не используется.
With ActiveDocument.Range.find
' Что искать.
.Text = "Привет друг"
' Поиск (Execute). При этом метод Execute вернёт True или False.
' Если найдено.
If .Execute = True Then
' Действия, если найдено.
' Если не найдено.
Else
' Действия, если не найдено.
End If
End With
End Sub
Спасибо