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

Свойство Document.Find (Publisher)

  • Статья

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

Синтаксис

expression. Найти

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

Пример

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

Dim objFind as FindReplace 
Dim fFound as Boolean 
 
Set objFind = ActiveDocument.Find 
fFound = True 
 
With objFind 
 .Clear 
 .FindText = "Important" 
 Do While fFound = True 
 fFound = .Execute 
 If Not .FoundTextRange Is Nothing Then 
 .FoundTextRange.Font.Bold = True 
 End If 
 Loop 
End With

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

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