[Word 2003] Makro für Automatische Änderung

[Lasersword]

Hallo VBA-Experten,

ich hab folgendes Problem:

Ich habe ca. 2.000 Word-Dokumente (in 10 Ordnern mit ggf. 1 Unterordner)

In diesen Schreiben müssen so Sonderzeichen wie ">", "<"; "*" etc. entfernt werden.

Folgendes Makro hab ich hierfür schon "geschrieben" (eher aufgezeichnet und leicht modifiziert) .

Sub Ersetzen()
'
' Ersetzen Makro
' Makro aufgezeichnet am 12.11.2008 von TRAMPNAU
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "*"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "¦"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "<"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ">"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

ActiveDocument.Save
ActiveWindow.Close
End Sub


Gibt es eine Möglichkeit, wie ich das Makro automatisieren kann, dass er alle im aktuellen Ordner befindlichen Schreiben öffnet, ändert, speichert und schließt?

Vielen Dank für eure Hilfe.

Gruß,

Lasersword