Поделиться через


Поиск объекта (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 и обратная связь.