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.
HinwBemerkungeneise
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
- Application
- FindText
- Forward
- FoundTextRange
- MatchAlefHamza
- MatchCase
- MatchDiacritics
- MatchKashida
- MatchWholeWord
- MatchWidth
- Parent
- ReplaceScope
- ReplaceWithText
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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für