Find.Replacement-Eigenschaft (Word)

Gibt ein Replacement-Objekt zurück, das die Kriterien für einen Ersetzungsvorgang enthält.

Syntax

Ausdruck. Replacement

Ausdruck Ein Ausdruck, der ein Find-Objekt zurückgibt.

Beispiel

In diesem Beispiel wird Fettformatierung aus dem aktiven Dokument entfernt. Die Bold-Eigenschaft des Font-Objekts ist True für das Find-Objekt und False für das Replacement-Objekt.

With ActiveDocument.Content.Find 
 .ClearFormatting 
 .Font.Bold = True 
 With .Replacement 
 .ClearFormatting 
 .Font.Bold = False 
 End With 
 .Execute FindText:="", ReplaceWith:="", Format:=True, _ 
 Replace:=wdReplaceAll 
End With

In diesem Beispiel wird im aktiven Dokument jede Instanz des Worts "Start" gesucht und durch "End" ersetzt. Der Suchvorgang ignoriert die Formatierung und beachtet die Groß-/Kleinschreibung des zu suchenden Texts ("Start").

Set myRange = ActiveDocument.Range(Start:=0, End:=0) 
With myRange.Find 
 .ClearFormatting 
 .Text = "Start" 
 With .Replacement 
 .ClearFormatting 
 .Text = "End" 
 End With 
 .Execute Replace:=wdReplaceAll, _ 
 Format:=True, MatchCase:=True, _ 
 MatchWholeWord:=True 
End With

Siehe auch

Find-Objekt

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.