Hallo zusammen,
hoffentlich könnt Ihr mir helfen.
Ich habe folgende Aufgabenstellung an der ich aktuell scheiter:
- Beim Speichern einer Word-Datei die in einem Hauptordner liegt soll eine Sicherheitskopie des Originals in den Unterorder /Archiv gespeichert werden.
- Die Sicherheitskopie soll die Benennung „YYYYMMDDDD_HHMM_Dateinamen“ haben.
- Das Original wird mit unverändertem Namen im Hauptorder gespeichert
In einer Excel-Datei habe ich es bereits ohne Probleme hinbekommen, siehe folgender Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim sDatei As String
Dim sPfad As String
Application.EnableEvents = False
Application.ScreenUpdating = False
sPfad = ActiveWorkbook.Path & "\Archiv\"
sDatei = Format(Now, "yyyyMMdd_hhmm_") & ActiveWorkbook.Name
ActiveWorkbook.SaveCopyAs Filename:=sPfad & sDatei
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Außerdem ist mir schon aufgefallen, dass es SaveCopyAs in Word nicht gibt und genau daran scheiter ich gerade.
Die Datei umbennen und im Archiv speichern, bekomme ich ohne Probleme mit folgendem Code hin, dies erfüllt aber noch nicht ganz meine Aufgabenstellung.
Private Sub Change_name()
Dim sDatei As String
Dim sPfad As String
sPfad = ActiveDocument.Path & "\Archiv\"
sDatei = Format(Now, "yyyyMMdd_hhmm_") & ActiveDocument.Name
ActiveDocument.SaveAs2 Filename:=sPfad & sDatei
End Sub
Ich hoffe Ihr könnt mir weiter helfen.
Viele Grüße
Lukas
|