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

HinwBemerkungeneise

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 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.