Свойство TextRange.Find (издатель)

Возвращает объект FindReplace из указанного объекта TextRange . Объект FindReplace используется для поиска и замены текста в указанном текстовом диапазоне.

Синтаксис

выражение. Поиск

выражение Переменная, представляющая объект TextRange .

Пример

В следующем примере объектная переменная задается для объекта FindReplace текстового диапазона первой фигуры в активном документе. Выполняется операция поиска, которая применяет полужирное форматирование к каждому вхождению слова "срочно" в текстовом диапазоне.

Dim objFind as FindReplace 
Dim fFound as Boolean 
 
Set objFind = ActiveDocument.Pages(1) _ 
 .Shapes(1).TextFrame.TextRange.Find 
fFound = True 
 
With objFind 
 .Clear 
 .FindText = "Urgent" 
 Do While fFound = True 
 fFound = .Execute 
 If Not .FoundTextRange Is Nothing Then 
 .FoundTextRange.Font.Bold = True 
 End If 
 Loop 
End With

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.