FindReplace.FoundTextRange-Eigenschaft (Publisher)
Gibt ein TextRange-Objekt zurück, das den gefundenen oder ersetzten Text eines Suchvorgangs darstellt. Schreibgeschützt.
Syntax
Ausdruck. FoundTextRange
Ausdruck Eine Variable, die ein FindReplace-Objekt darstellt.
Rückgabewert
TextRange
Hinweise
Das tatsächliche FoundTextRange -Eigenschaft zurückgegebene TextRange -Objekt wird durch den Wert der ReplaceScope -Eigenschaft bestimmt. In der folgenden Tabelle sind die entsprechenden Werte dieser Eigenschaften aufgeführt (siehe auch die PbReplaceScope-Enumeration ).
Wenn ReplaceScope = | FoundTextRange = |
---|---|
pbReplaceScopeAll | Empty |
pbReplaceScopeNone | Textbereich suchen |
pbReplaceScopeOne | Textbereich ersetzen |
Wenn ReplaceScope auf pbReplaceScopeAll festgelegt ist, ist die FoundTextRange-Eigenschaft leer. Jeder Versuch, darauf zuzugreifen, gibt "Zugriff verweigert" zurück. Die Möglichkeit zum Bearbeiten des Textbereichs des durchsuchten Texts besteht darin, die ReplaceScope-Eigenschaft auf pbReplaceScopeNone oder pbReplaceScopeOne festzulegen und auf den Textbereich des gesuchten oder ersetzten Texts für jedes gefundene Vorkommen zuzugreifen.
Beispiel
Wenn ReplaceScope auf PbReplaceScopeNone festgelegt ist, gibt FoundTextRange den Textbereich des durchsuchten Textes zurück. Das folgende Beispiel veranschaulicht, wie die Schriftattribute des durchsuchten Textbereichs zugegriffen werden können, wenn ReplaceScope auf PbReplaceScopeNone festgelegt wird.
With TextRange.Find
.Clear
.FindText = "important"
.ReplaceScope = pbReplaceScopeNone
Do While .Execute = True
'The FoundTextRange contains the word "important".
If .FoundTextRange.Font.Italic = msoFalse Then
.FoundTextRange.Font.Italic = msoTrue
End If
Loop
End With
Wenn ReplaceScope auf PbReplaceScopeOne festgelegt ist, wird der Textbereich des durchsuchten Textes ersetzt. Aus diesem Grund gibt die FoundTextRange -Eigenschaft des Textbereichs, der den Ersetzungstext zurück. Im folgenden Beispiel wird veranschaulicht, wie die Schriftattribute des ersetzten Textbereichs zugegriffen werden können, wenn ReplaceScope auf PbReplaceScopeOne festgelegt ist.
With Document.Find
.Clear
.FindText = "important"
.ReplaceWithText = "urgent"
.ReplaceScope = pbReplaceScopeOne
Do While .Execute = True
'The FoundTextRange contains the word "urgent".
If .FoundTextRange.Font.Bold = msoFalse Then
.FoundTextRange.Font.Bold = msoTrue
End If
Loop
End With
In diesem Beispiel wird jedes Vorkommen des Worts "bizarre" durch das Wort "strange" ersetzt. Zudem wird auf den Ersetzungstext Kursiv- und Fettformatierung angewendet.
Dim objDocument As Document
Set objDocument = ActiveDocument
With objDocument.Find
.Clear
.FindText = "bizarre"
.ReplaceWithText = "strange"
.ReplaceScope = pbReplaceScopeOne
Do While .Execute = True
.FoundTextRange.Font.Italic = msoTrue
.FoundTextRange.Font.Bold = msoTrue
Loop
End With
In diesem Beispiel wird nach allen Vorkommen des Worts "important" gesucht und für dieses Wort Kursivformatierung angewendet.
Dim objTextRange As TextRange
Set objTextRange = ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange
With objTextRange.Find
.Clear
.FindText = "important"
.ReplaceScope = pbReplaceScopeNone
Do While .Execute = True
.FoundTextRange.Font.Italic = msoTrue
Loop
End With
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.