Autospeichern Worddokument als Name=akt.Name+Datum

Computer: Software & Programmierung Office Software
1

Hallo,
ich möchte als Sicherheit neben der herkömmlichen Speicherung eines Dokumentes dieses außerdem in einem Laufwerksordner „X:\Schreiben“
abspeichern. Dabei soll er den aktuellen Namen + das Datum mit Uhrzeit anfügen z.B. wäre dann im Ordner X:\Schreiben folgendes Dokument zu finden:

X:\Schreiben\MeinDokument_Tag:25.07.2006_Uhrzeit:10:21:12

Hat jemand ein Scriptvorschlag wie man das über VBA lösen kann?
Ich habe word 2000

Vielen Dank

2

Hallo Michael,

funktioniert z.B. mit folendem Makro, das du in einem Modul deiner Normal.dot speichern solltes.
Diese Makro kannst du dann einem Button in einer Symbolleiste oder einem Menüpunkt zuordnen.
Doppelpunkte sind in Dateinamen nicht zulässig. Du muss ggf. ein anderes Trennzeichen (zB. _ ) im Zeitformat einfügen.

Gruß
Franz

Sub SpeichernSichern()
' SichernSpeichern Makro
 Pfad = "C:\Test" 'Verzeichnis für Sicherungskopie
 If Right(activdocument, 4) ".doc" Then 'Neues Dokument wurde noch nicht gespeichert
 test = Application.Dialogs(wdDialogFileSaveAs).Show
 If test = False Then Exit Sub 'Abbrechen wurde gewählt
 End If
 Dateiname = ActiveDocument.Name
 Dateinamekopie = Pfad & "\" & Left(Dateiname, Len(Dateiname) - 4) \_
 & "\_Tag\_" & Format(Now, "YYYYMMDD") & "\_Zeit\_" & Format(Now, "hhmmss") & ".doc"
 Dateiname = ActiveDocument.FullName
 ActiveDocument.Save
 ActiveDocument.Close
 FileCopy Dateiname, Dateinamekopie
 If MsgBox("Original-Datei wieder öffnen?", vbYesNo, "Datei-Speichern-Sichern") = vbYes Then
 Documents.Open FileName:=Dateiname, AddtoRecentFiles:=True
 End If
End Sub

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

3

Hallo,
ich möchte als Sicherheit neben der herkömmlichen Speicherung
eines Dokumentes dieses außerdem in einem Laufwerksordner
„X:\Schreiben“
abspeichern. Dabei soll er den aktuellen Namen + das Datum mit
Uhrzeit anfügen z.B. wäre dann im Ordner X:\Schreiben
folgendes Dokument zu finden:

X:\Schreiben\MeinDokument_Tag:25.07.2006_Uhrzeit:10:21:12

Hat jemand ein Scriptvorschlag wie man das über VBA lösen
kann?
Ich habe word 2000

Vielen Dank

Hallo Michael,

funktioniert z.B. mit folendem Makro, das du in einem Modul
deiner Normal.dot speichern solltes.
Diese Makro kannst du dann einem Button in einer Symbolleiste
oder einem Menüpunkt zuordnen.
Doppelpunkte sind in Dateinamen nicht zulässig. Du muss ggf.
ein anderes Trennzeichen (zB. _ ) im Zeitformat einfügen.

Gruß
Franz

Sub SpeichernSichern()
’ SichernSpeichern Makro
Pfad = „C:\Test“ 'Verzeichnis für Sicherungskopie
If Right(activdocument, 4) „.doc“ Then 'Neues
Dokument wurde noch nicht gespeichert
test = Application.Dialogs(wdDialogFileSaveAs).Show
If test = False Then Exit Sub 'Abbrechen wurde gewählt
End If
Dateiname = ActiveDocument.Name
Dateinamekopie = Pfad & „“ & Left(Dateiname, Len(Dateiname)

    1. _
      & „_Tag_“ & Format(Now, „YYYY_MM_DD“) & „_Zeit_“ &
      Format(Now, „hhmmss“) & „.doc“
      Dateiname = ActiveDocument.FullName
      ActiveDocument.Save
      ActiveDocument.Close
      FileCopy Dateiname, Dateinamekopie
      If MsgBox(„Original-Datei wieder öffnen?“, vbYesNo,
      „Datei-Speichern-Sichern“) = vbYes Then
      Documents.Open FileName:=Dateiname, AddtoRecentFiles:=True
      End If
      End Sub

Hallo Franz,

das hat es voll getroffen. Vielen herzlichen Dank!!!