Sicherungskopien auf anderes Laufwerk

(Word 2000)

Grundsätzlich bietet Word bereits die Möglichkeit, Sicherungskopien der bearbeiteten Dateien zu speichern. Für manch einen wird das ausreichen. Da Word diese Sicherungskopien jedoch im selben Ordner anlegt wie die Originaldatei, ist nach einem Festplattencrash auch die Sicherungskopie dahin. Mit dem folgenden VBA-Programm wird der Datei-Öffnen Dialog abgeändert und Word erstellt beim Öffnen einer Datei eine Sicherungskopie in jenem Ordner, der im Code definiert wurde. Dazu ist der Code in der Datei normal.dot einzugeben.

Sub DateiÖffnen()
Dim strSrcDoc As String
Dim dteDate As Date
Dim strMyDoc As String
With Dialogs(wdDialogFileOpen)
    .Name = "*.doc"
    If .Display = -1 Then
      strSrcDoc = .Name
    End If
    Documents.Open .Name
    strMyDoc = ActiveDocument.Name
    dteDate = Date
    strMyDoc = Chr(34) & "E:\Word Backup\" & dteDate & " Backup " & strMyDoc & Chr(34)
    ActiveDocument.SaveAs FileName:=strMyDoc, FileFormat:=wdFormatDocument
    MsgBox strSrcDoc & " wurde als " & strMyDoc & " archiviert.", vbInformation, "Dokument archivieren"
    ActiveDocument.Close
    Documents.Open .Name
End With
End Sub