Word Macro - Wort suchen, dann ersetzen und position verschieben

hallo,

ich hab ein dt programm was mir eine rtf-datei ausgibt.. diese öffne ich mit word und brauche nun ein macro,
was mir nen dt begriff durch nen engl ersetzt...


so siehts in meiner rtf datei aus

Nr Quantity Beschreibung AED-E-Preis Rab-% Gesamt

und so solls aussehen

No Quantity Description Unit price Discount Total


soweit bin ich schonmal...

Sub Macro1()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "Menge"
.Replacement.Text = "Quantity"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub


nun sind aber manche dt Wörter kürzer/länger als die engl Übersetzung...
ich will also das engl wort verschieben... zb 2 zeichen zurück oder vor...
damit es wieder etwas an der gleichen Position steht

danke schonmal im vorraus.

martin