Hallo :),
als absoluter neuling habe ich versucht mir mit Code-Schnipseln und Foren auszuhelfen.
Hat mich leider nicht sehr viel weiter gebracht, ich bekomme es nicht alleine zum laufen.
Kann mir jemand weiterhelfen ?
Sub change_words()
With Selection.Find
.Text = "A337"
.Replacement.Text = "A339"
.Forward = True
.Wrap = wdFindContinue
.MatchWholeWord = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "WDZ"
.Replacement.Text = "DW9"
.Forward = True
.Wrap = wdFindContinue
.MatchWholeWord = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Danke schonmal
|