Автор Тема: Word VBA Макросы. Как выделить найденный текст?  (Прочитано 2072 раз)

Оффлайн notOne

  • Посетитель форума
  • Сообщений: 4
Использую такой макрос для поиска текста. Данный макрос ищет текст "текст". Как выделить найденный текст?

Sub Macro()
    With ActiveDocument.Content.Find
        .Text = "текст"
        .Execute
    End With
End Sub

Оффлайн Администратор

  • Administrator
  • Сообщений: 1866
Sub Macro()

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

End Sub

Оффлайн notOne

  • Посетитель форума
  • Сообщений: 4
Спасибо Вам!