Thema Datum  Von Nutzer Rating
Antwort
Rot SaveCopyAs Alternative in Word 2016
08.09.2021 15:16:42 Lukas
NotSolved
10.09.2021 01:35:50 xlKing
Solved

Ansicht des Beitrags:
Von:
Lukas
Datum:
08.09.2021 15:16:42
Views:
501
Rating: Antwort:
  Ja
Thema:
SaveCopyAs Alternative in Word 2016

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot SaveCopyAs Alternative in Word 2016
08.09.2021 15:16:42 Lukas
NotSolved
10.09.2021 01:35:50 xlKing
Solved