Форум по VBA, Excel и Word

Word => Макросы в Word => Тема начата: notOne от 13 Апрель 2021, 10:14

Название: Word VBA Макросы. Как выделить найденный текст?
Отправлено: notOne от 13 Апрель 2021, 10:14
Использую такой макрос для поиска текста. Данный макрос ищет текст "текст". Как выделить найденный текст?

Sub Macro()
    With ActiveDocument.Content.Find
        .Text = "текст"
        .Execute
    End With
End Sub
Название: Re: Word VBA Макросы. Как выделить найденный текст?
Отправлено: Администратор от 13 Апрель 2021, 10:16
Sub Macro()

    With ActiveDocument.Content.Find
        .Text = "текст"
        If .Execute Then
            .Parent.Select
        End If
    End With

End Sub
Название: Re: Word VBA Макросы. Как выделить найденный текст?
Отправлено: notOne от 14 Апрель 2021, 03:16
Спасибо Вам!