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

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

Примечания

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

Используйте свойство 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

См. также

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

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

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