Word VBA Макросы: Выполнение условия по найденному значению в документе

[Rengame113]

Необходимо создать макрос для поиска в документе фразы «Привет друг». Если она находится в документе, то выполняется Условие 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

[свернуть]

[Rengame113]

Спасибо