Форум по VBA и MS Office

Как узнать, есть ли в абзаце заданный текст?
Например, как узнать, есть ли в абзаце текст "птица"?

Написал сам:

Sub Macro()

    If LCase(ActiveDocument.Paragraphs(1).Range.Text) Like "*птица*" Then
        MsgBox "В абзаце есть искомое слово.", vbInformation
    Else
        MsgBox "В абзаце нет искомого слова.", vbExclamation
    End If
   
End Sub