VBA-Makroskript zum Suchen / Ersetzen von Wörtern. Markieren Sie sie, um herauszufinden, welche Wörter in Word-Dokumenten geändert wurden

678
Chuck C.

Ich habe ein schickes Makro, das Wörter findet und ersetzt und dann hervorhebt, damit ich weiß, welche Wörter vom Skript geändert wurden. Allerdings muss ich zuerst meine Markierungsfarbe einstellen und dann das Skript ausführen. Möchten Sie wissen, wie Sie das Skript so bearbeiten, dass ich nicht erst die Markierungsfarbe festlegen muss, führen Sie einfach das Skript aus, und ersetzte Wörter werden hervorgehoben.

Vielen Dank.

Sub Highlight_X_F9() ' ' highlight_X Macro ' Highlight [X] ' "&chr(10)&"F9 '  '   findArray = Array("Blue 1", "Blue 2", "Blue 3") replArray = Array("Red 1", " Red 2", " Red 3")  For i = 0 To UBound(findArray) Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Highlight = True With Selection.Find .Text = findArray(i) .Replacement.Text = replArray(i) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Next i   End Sub
0
Starten Sie einfach eine Makroaufzeichnung, ändern Sie dann die Hilfslichtfarbe, stoppen Sie den Makrorecorder und sehen Sie, welchen VBA-Code Sie erhalten. Kopieren Sie das in Ihren vorhandenen Code und Sie sind fertig. LPChip vor 6 Jahren 0
Im Zusammenhang mit Suchen / Ersetzen suche ich nach einem Makroskript, um nach Zahlen mit einem Komma (0,2 oder 4,3 usw.) zu suchen und durch Kommas durch Dezimalzahlen (0,2 oder 4,3) zu ersetzen. In dieser Situation muss für alle Ziffern ein Platzhalter verwendet werden. Meine Suche nach Platzhaltern für diese Situation ist leer: - / Chuck C. vor 6 Jahren 0

0 Antworten auf die Frage

Verwandte Probleme