Liebe Community,
ich habe gerade Probleme foldende Aufgaben zu lösen, weil ich nie mit Macro in Word gearbeitet hatte. In Word Datei gib es zwei Spalten: Linke Spalte hat eine Testergebnisse von Altsystemen und rechte Spalte hat Testergebnisse von Neusystemen.
Aufgabenstellung: In Word ist nach "@[Zahlenfolge]@" zu suchen. Diese stellen markiere in beiden (rechte und linke) Spalten. Die Zahlenfolge gibt an wieviele Bytes an Umsätzen zurückgeliefert wurde. Wenn Rechts und links die Zahlen übereinstimmen dann deutet das auf eine korrekte Verarbeitung in beiden Modi hin. Also im ersten Teil der Aufgabe alles wo eine Zahlenfolge zwischen zwei @-Symbolen auftaucht farblich markieren (grün = wenn links und rechts gleich sind , ansonsten rot) (jeweils als Texthintergrundfarbe).
Ich habe versucht erst nur "@[Zahlenfolge]@" aussuzuchen und grün zu markieren. Aber was ich erstellt habe hat auch nicht funktioniert. Hier fehlt die Vergleiche zwieschen Spalten.
Sub ZahlenfolgeFindenMarkieren()
Option.DefaultHighlightColorIndex = wdGreen
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormating
Selection.Find.Replacement.Hinglight =True
With Selection.Find
.Text = "@*@"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format =True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace: = wdReplaceAll
End Sub
Könntet Ihr bitte, bitte dabei Helfen um eine Lösung zu finden? Ich wäre wirklich dankbar für jede Idee oder Hilfe.
Herzlichen Dank im Voraus und beste Grüße
Alex
|