Hallo Zusammen,
ich habe ein Makro, welches eine Datei unter dem Dateinamen:
date & „.doc“ abspeichert. Mein Problem besteht darin, wenn eine solche Datei bereits existiert, wird diese ohne Rückfrage überschrieben.
Wie sollte die Programmzeile lauten, damit die bestehende Datei nicht sofort überschrieben wird, sondern ich die Möglichkeit habe, die zu speichernde Datei manuell umzubenennen.
Gruß
Roland
Hallo Roland,
was steht den in der Programmzeile die einfach so speichert?
Gruss
Nils
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Nils,
was steht den in der Programmzeile die einfach so speichert?
ChangeFileOpenDirectory „C:\Eigene Dateien“
ActiveDocument.SaveAs FileName:=Date & „.doc“
(Es steht noch etwas mehr drin, was meines erachtens keinen Einfluss auf den Speichervorgang hat.)
Gruß
Roland
Hallo Roland,
schau dir mal dir Dir-Funktion an (sucht Dateienamen) Ggf. hat die Save oder SaveAs Funktion auch schon entsprechende Schalter.
Gruss
Nils
Hallo Nils,
ich habe leider nicht verstanden was Du mit der DIR-Funktion meinst.
In der Hilfedatei habe ich folgendes gefunden:
SaveAs-Methode
Speichert das angegebene Dokument unter einem neuen Namen oder in
einem neuen Format. Die Argumente für diese Methode entsprechen den
Optionen im Dialogfeld Speichern unter (Menü Datei).Syntax
Ausdruck.SaveAs(FileName, …)
FileName Variant optional. Der Name für das Dokument. Als Standard
gilt der Name des aktuellen Ordners und der aktuellen Datei. Wenn das
Dokument noch nicht gespeichert wurde, wird der Standardname
verwendet (z. B. „Dok1.doc“). Wenn bereits ein Dokument mit dem
angegebenen FileName vorhanden ist, wird das Dokument überschrieben,
wobei vorher keine Eingabeaufforderung für den Benutzer angezeigt
wird.
Also, dort steht: „wobei vorher keine Eingabeaufforderung für den Benutzer angezeigt wird.“
Wie kriege ich dort eine Eingabeaufforderung hinein?
Gruß
Roland
Hallo Roland,
sorry ich hätte das gelich etwas präziser machen sollen. Versuch als erstes mal Ausdruck.saveas durch ausdruck.save zu ersetzen. Es kann sein, das save standardmäßig vorher nachfragt.
Wenn nicht mußt du mit z.B. Exists=Dir(Dateiname) prüfen ob der Dateiname schon existiert und dann enstpechend reagieren.
Gruss
Nils
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Danke ich werd’s mal versuchen.
Hallo Roland,
sorry ich hätte das gelich etwas präziser machen sollen.
Versuch als erstes mal Ausdruck.saveas durch ausdruck.save zu
ersetzen. Es kann sein, das save standardmäßig vorher
nachfragt.Wenn nicht mußt du mit z.B. Exists=Dir(Dateiname) prüfen ob
der Dateiname schon existiert und dann enstpechend reagieren.Gruss
Nils