Freigeben über

FindReplace-Objekt (Publisher)

Stellt die Kriterien für einen Suchvorgang dar. Die Eigenschaften und Methoden des FindReplace -Objekts entsprechen den Optionen im Dialogfeld Suchen und Ersetzen.

Hinweise

Wenn die ReplaceScope-Eigenschaft auf eine der PbReplaceScope-KonstantenpbReplaceScopeOne oder pbReplaceScopeAll festgelegt ist, muss die ReplaceWithText-Eigenschaft festgelegt werden, um zu verhindern, dass der Text durch den Standardwert einer leeren Zeichenfolge für diese Eigenschaft ersetzt wird.

Verwenden Sie die TextRange.Find-Eigenschaft , um ein FindReplace-Objekt zurückzugeben.

Legen Sie die ReplaceScope -Eigenschaft auf den Umfang der Suche zu ermitteln.

Beispiel

Im folgenden Beispiel wird das nächste Vorkommen der Wortfactory ausgewählt.

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

Im folgenden Beispiel wird das erste Vorkommen des Namens Visual Basic Scripting Edition durch VBScript ersetzt.

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

The following example illustrates how the font attributes of the FoundTextRange can be accessed when ReplaceScope is set to 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

Methoden

Eigenschaften

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

  • Last updated on