microsoft.public.word.vba.general

Hi,

like that:

Sub Test4007()
Dim rDcm As Range
Set rDcm = ActiveDocument.Range
With rDcm.Find
.Text = "wir" ' german
.Font.Color = wdColorRed
.Replacement.Text = "we" ' english
.Replacement.Font.Color = wdColorBlue
.Execute Replace:=wdReplaceAll
End With
End Sub

Repeat for different words.


--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP