Klasse Replacement (Word VBA)
Die Klasse Replacement stellt die Kriterien für das Ersetzen für ein Suchen-und-Ersetzen-Vorgang dar. Um eine Replacement -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise
Dim rpl as Replacement
Set rpl = Selection.Find.Replacement
ClearFormatting
Entfernt Text- und Absatzformatierungen aus dem in einem Ersetzungsvorgang angegebenen Text.
Sub ClrFmtgReplace()
Dim rngTemp As Range
Set rngTemp = ActiveDocument.Content
With rngTemp.Find
.ClearFormatting
.Replacement.ClearFormatting
.MatchWholeWord = True
.Execute FindText:="Inc.", ReplaceWith:="incorporated", _
Replace:=wdReplaceAll
End With
End Sub
Font
Gibt ein Font -Objekt zurück, das die Zeichenformatierung des angegebenen Objekts darstellt, oder legt dieses fest.
Geben Sie zum Festlegen dieser Eigenschaft einen Ausdruck an, der ein Font -Objekt zurückgibt.
Selection.Find.Replacement.Font =
Frame
Gibt ein Frame -Objekt zurück, das die Frame Formatierung für die angegebene Formatvorlage oder den Such-und Ersetzungsvorgang darstellt.
Dim frmFrame As Frame
Set frmFrame = Selection.Find.Replacement.Frame
Highlight
True, wenn auf den Ersetzungstext die Formatierung für Hervorhebungen angewendet wird.
Kann zurückgegeben oder auf true, falseoder wdUndefinedfestgelegt werden.
Dim rngTemp As Range
Set rngTemp = ActiveDocument.Range(Start:=0, End:=0)
With rngTemp.Find
.ClearFormatting
.Highlight = True
With .Replacement
.ClearFormatting
.Highlight = False
End With
.Execute Replace:=wdReplaceAll, Forward:=True, FindText:="", _
ReplaceWith:="", Format:=True
End With
LanguageID
Gibt eine WdLanguageID -Konstante zurück, die die Sprache für den angegebenen Bereich darstellt, oder legt diese fest. Dies sind mögliche Werte für
Einige der WdLanguageID -Konstanten stehen Ihnen möglicherweise nicht zur Verfügung, abhängig von der Sprachunterstützung (beispielsweise US-Englisch), die Sie ausgewählt oder installiert haben.
Selection.Find.Replacement.LanguageID = wdAfrikaans
LanguageIDFarEast
Gibt eine ostasiatische Sprache für die angegebene Ersetzung zurück oder legt diese fest. Dies sind mögliche Werte für
Dies ist das empfohlene Verfahren für das Zurückgeben oder Festlegen einer ostasiatischen Sprache eines Dokuments, das in einer ostasiatischen Word-Version erstellt wurde.
Selection.LanguageIDFarEast = wdKorean
NoProofing
True, wenn Text von Microsoft Word ersetzt wird, den die Rechtschreib- und Grammatikprüfung ignoriert.
Selection.Find.Replacement.NoProofing =
ParagraphFormat
Gibt ein ParagraphFormat -Objekt zurück, das die Absatzeinstellungen für den angegebenen Ersetzungsvorgang darstellt, oder legt dieses fest.
With ActiveDocument.Content.Find
.ClearFormatting
.ParagraphFormat.Space2
.Replacement.ClearFormatting
.Replacement.ParagraphFormat.Space15
.Execute FindText:="", ReplaceWith:="", _
Replace:=wdReplaceAll
End With
Style
Gibt die Formatvorlage für das angegebene Objekt zurück oder legt diese Formatvorlage fest.
Wenn Sie die Formatvorlage für einen Bereich zurückgeben, der mehr als eine Formatvorlage enthält, wird nur die Formatvorlage für das erste Zeichen oder den ersten Absatz zurückgegeben.
Selection.Find.Replacement.Style =
Text
Gibt den zu ersetzenden Text zurück oder legt diesen Text fest.
Set myRange = ActiveDocument.Content
With myRange.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "Hello"
.Replacement.Text = "Goodbye"
.Execute Replace:=wdReplaceAll
End With