Word VBA: Как проверить текст в строке

Автор Anton, 02 августа 2016, 08:30

Anton

Здравствуйте!
Подскажите пожалуйста, какой командой можно проверить наличие определенного текста в выделенной строке таблицы?

Администратор

Sub Макрос()
   
    Dim rw As Row
   
    '1. Vba-именование выделенной строки.
    Set rw = Selection.Rows(1)
   
    '2. Поиск.
    With rw.Range.Find
        .Text = "искомый текст"
        .Wrap = wdFindStop
        If .Execute = True Then
            MsgBox "Найдено.", vbInformation
        End If
    End With

End Sub