Dateiname auslesen zum speichern

Hallo,

im Moment bearbeite ich viele Dokumentenvorlagen (*.dot Anzahl vorerst ca. 300 Stk.). Diese muss ich umformatieren und anschließend vom Ordner „Vorlagen“ in den Ordner „Vorlagen_neu“ speichern.

Um mir dies zu erleichtern habe ich versucht, mir den Speichervorgang per Makrorekorder aufzuzeichnen. Hier ist jetzt leider das Problem, dass immer der Vorlagenname genommen wird, mit dem ich das Makro aufgezeichnet habe.

Kennt Ihr eine Möglichkeit, den aktuellen Dateinamen auszulesen und anschließend einzusetzen??

Soweit ich das so erkannt habe, müsste der Vorlagenname in diese Zeile (xxx) eingefügt werden:

ChangeFileOpenDirectory „C:\Vorlagen und Tabellen\Vorlagen“ (=alter Pfad)
ActiveDocument.SaveAs FileName:=„xxx.dot“, FileFormat:= (=Tabellenname)
ChangeFileOpenDirectory „C:\Vorlagen und Tabellen\Vorlagen_neu“ (=neuer Pfad)

Da die Vorlagen erst ab dem 01.01.04 genutzt werden dürfen, müssen sie in ein anderes Verzeichnis gespeichert werden.

Danke schon einmal für Eure Hilfe!!

Eure LadyN

ChangeFileOpenDirectory „C:\Vorlagen und Tabellen\Vorlagen“ (=alter Pfad)
ActiveDocument.SaveAs FileName:=„xxx.dot“, FileFormat:= (=Tabellenname)
ChangeFileOpenDirectory „C:\Vorlagen und Tabellen\Vorlagen_neu“ (=neuer Pfad)

Application.ActiveDocument.Name ist der aktuelle Dokumentname …
probiers mal so …

ChangeFileOpenDirectory „C:\Vorlagen und Tabellen\Vorlagen“ (=alter Pfad)
ActiveDocument.SaveAs FileName:=Application.ActiveDocument.Name, FileFormat:= (=Tabellenname)

ChangeFileOpenDirectory „C:\Vorlagen und Tabellen\Vorlagen_neu“ (=neuer Pfad)