Автор Тема: Word VBA Макросы. Почему Find не находит текст?  (Прочитано 1426 раз)

Оффлайн notOne

  • Посетитель форума
  • Сообщений: 4
Почему этот макрос не находит текст "текст"?

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

Этот макрос почему-то выделяет весь текст в документе.

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

  • Administrator
  • Сообщений: 1939
Re: Word VBA Макросы. Почему Find не находит текст?
« Ответ #1 : 12 Апрель 2021, 08:32 »
Нужно использовать метод "Execute".

Sub Macro()

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

End Sub

Оффлайн notOne

  • Посетитель форума
  • Сообщений: 4
Re: Word VBA Макросы. Почему Find не находит текст?
« Ответ #2 : 13 Апрель 2021, 04:42 »
Спасибо Вам за Вашу помощь.