Word VBA Макросы. Как узнать, есть ли в абзаце заданный текст?

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

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

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

Написал сам:

Sub Macro()

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