[shadar.logoth]

Wie suche ich bei Word 2003 alle "5" und ersetze sie durch eine grüne "5" ?

ich meine eine detailliertere Suche.
Ich kann zwar nach farbigen Zahlen suchen, aber diese nicht durch eine farbige Zahl ersetzen.

[camo]

Die einfachste Möglichkeit die mir spontan dazu einfällt ist ein Makro aufzuzeichnen und dieses auf einen Button zu legen.

	Selection.Find.ClearFormatting
	With Selection.Find
		.Text = "5"
		.Replacement.Text = ""
		.Forward = True
		.Wrap = wdFindContinue
		.Format = False
		.MatchCase = False
		.MatchWholeWord = False
		.MatchWildcards = False
		.MatchSoundsLike = False
		.MatchAllWordForms = False
	End With
	Selection.Find.Execute
	Selection.Font.Color = wdColorBrightGreen
End Sub

Das ersetzt allerdings immer nur eine 5. Wenn man alle im Dokument ersetzen mögchte, müsste man das noch in ne Schleife reinpacken. Hab ich jetzt leider keine Zeit mehr zu.

[dastriebel]

Zitat (shadar.logoth: 01.03.2008, 20:45)

Wie suche ich bei Word 2003 alle "5" und ersetze sie durch eine grüne "5" ?

ich meine eine detailliertere Suche.
Ich kann zwar nach farbigen Zahlen suchen, aber diese nicht durch eine farbige Zahl ersetzen.

hab hier englisches office...
Edit | Replace...

Find what: 5
Replace with: 5
Schaltfläche [ More ]
Schaltflächen [ Format ] | Format...

Font color einstellen

Wichtig ist, dass der Cursur beim einstelllen der ersetzungsfarbe im feld Replace with steht