Форум по VBA и MS Office

Word => Макросы в Word => Тема начата: Anton от 02 августа 2016, 08:30

Название: Word VBA: Как проверить текст в строке
Отправлено: Anton от 02 августа 2016, 08:30
Здравствуйте!
Подскажите пожалуйста, какой командой можно проверить наличие определенного текста в выделенной строке таблицы?
Название: Re: Word VBA: Как проверить текст в строке
Отправлено: Администратор от 02 августа 2016, 19:56
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
Название: Re: Word VBA: Как проверить текст в строке
Отправлено: Anton от 03 августа 2016, 07:59
Спасибо!