Hier ein Weg, um bei jedem manuellem Speichern eine Kopie mit anzulegen, um bei Bedarf auf "alte" Varianten zurückgreifen zu können.
Mit der folgenden BASIC-Routine kann eine Sicherung unter dem gleichen Dateinamen, plus zusätzlicher Zeitstempel-Information, erzeugt werden.
(Beim erstmaligen Sichern wird keine Kopie erzeugt!
Code: Alles auswählen
Sub Extra_Kopie
sMakroName = "Extra-Kopie "
sMakroVersion = "2010-07-18"
If ThisComponent.hasLocation() Then
sFileURL = ThisComponent.getURL() & "_" & cDateToISO( Now() ) & Format( Now(), "hhmm" )
' auf Duplikat prüfen
If FileExists( sFileURL ) Then
' Duplikat gefunden
'
Msgbox "Dokument ist bereits vorhanden:" & CHR(13) &_
sFileURL & CHR(13) & _
"Es wurde keine Kopie erzeugt!" ,_
64 ,sMakroName & sMakroVersion
Else
ThisComponent.StoreToURL( sFileURL , Array() )
End If
End If
Anleitung:
* zunächst den Code in ein Modul der STANDARD-Bibliothek der OOo-Installation unter "Meine Makros" kopieren.
* bei jedem wichtigen Dokument, zu dem solche zeitbezogenen Kopien erstellt werden sollen, beim Menüpunkt Extras>Anpassen...>Ereignis: "Dokument wurde gespeichert" , das Makro zuweisen.
Hinweis: das Makro kann auch einer Vorlage zugewiesen werden - und speichert dann automatisch davon erzeugte Dokumente.
Querverweise:
OOo-Wiki: Makros installieren