Объект FindReplace (издатель)

Представляет критерии для операции поиска. Свойства и методы объекта FindReplace соответствуют параметрам в диалоговом окне Поиск и замена .

Замечания

Если для свойства ReplaceScope задана одна из констант PbReplaceScopepbReplaceScopeOne или pbReplaceScopeAll, необходимо задать свойство ReplaceWithText , чтобы текст не заменялся значением по умолчанию пустого String для этого свойства.

Используйте свойство TextRange.Find , чтобы вернуть объект FindReplace .

Задайте свойство ReplaceScope , чтобы определить степень поиска.

Пример

В следующем примере выбирается следующее вхождение фабрики слов.

With ActiveDocument.Find 
 .Clear 
 .FindText = "factory" 
 .Execute 
End With

В следующем примере первое вхождение имени Visual Basic Scripting Edition заменяется на VBScript.

With ActiveDocument.Find 
 .Clear 
 .FindText = "Visual Basic Scripting Edition" 
 .ReplaceWithText = "VBScript" 
 .ReplaceScope = pbReplaceScopeOne 
 .Execute 
End With

В следующем примере показано, как получить доступ к атрибутам шрифта FoundTextRange, если для replaceScope задано значение pbReplaceScopeNone.

Dim objFindReplace As FindReplace 
 
Set objFindReplace = ActiveDocument.Find 
With objFindReplace 
 .Clear 
 .FindText = "important" 
 .ReplaceScope = pbReplaceScopeNone 
 Do While .Execute = True 
 If .FoundTextRange.Font.Italic = msoFalse Then 
 .FoundTextRange.Font.Italic = msoTrue 
 End If 
 Loop 
End With

Методы

• Clear
• Execute

Свойства

• Application
• FindText
• Forward
• FoundTextRange
• MatchAlefHamza
• MatchCase
• MatchDiacritics
• MatchKashida
• MatchWholeWord
• MatchWidth
• Parent
• ReplaceScope
• ReplaceWithText

См. также

• Справочник по объектной модели издателя

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

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