Поиск объекта (Word)
Представляет критерии для операции поиска.
Свойства и методы объекта Find соответствуют параметрам в диалоговом окне Поиск и замена .
Используйте свойство Find , чтобы вернуть объект Find . В следующем примере выполняется поиск и выбор следующего вхождения слова "hi".
With Selection.Find
.ClearFormatting
.Text = "hi"
.Execute Forward:=True
End With
В следующем примере выполняется поиск всех вхождений слова "hi" в активном документе и замена слова на "hello".
Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="hi", ReplaceWith:="hello", _
Replace:=wdReplaceAll
Если вы перешли к объекту Найти из объекта Selection , выделение изменяется при поиске текста, соответствующего условиям поиска. В следующем примере выбирается следующее вхождение слова "blue".
Selection.Find.Execute FindText:="blue", Forward:=True
Если вы перешли к объекту Find из объекта Range , выделение не изменяется при обнаружении текста, соответствующего условиям поиска, но объект Range переопределен. В следующем примере показано, как найти первое вхождение слова "blue" в активном документе. Если в документе обнаружен "синий", myRange переопределен, а к "синему" применяется полужирное форматирование.
Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="blue", Forward:=True
If myRange.Find.Found = True Then myRange.Bold = True
Справочник по объектной модели Word
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.