OpenOffice.info

Hallo Stephan,

vielen Dank für die prompte Antwort. Das Makro funktioniert jetzt bestens!
:D

Noch eine Frage:

Aktuell wird ja nur die Uhrzeit in den Dateinamen aufgenommen. Falls an verschiedenen Tagen zur gleichen Zeit eine Sicherung durchgeführt wird, müßte doch die Meldung auftauchen, dass die entsprechende Datei bereits existiert.

Ich werde mal versuchen, ob ich es hinbekomme auch das Datum mit aufzunehmen, dann wäre dieser Fall ausgeschlossen und die Dateien ließen sich im Ordner übersichtlicher sortieren.

Danke nochmal!

Benny

Sub sicherung 
xxx =  ThisComponent.URL 
i = 0
Do
	i = i + 1
	tmp = Left(xxx, Len(xxx)-i)
Loop While Right(tmp,1)<>"/"
zeit = Split(time(),":")
zeit1 = zeit(0) & zeit(1)
altname = LEFT(Right(xxx,i), LEN(Right(xxx,i))-4)
endung = Right(xxx,3)
neuname = tmp & "Protokolle/" & altname & "_" & zeit1 & "." & endung
FileCopy ConvertFromURL(xxx), ConvertFromURL(neuname) 
Exit Sub

[quote]Was muß am Quelltext angepasst werden, dass es unter OO 2.1 funktioniert?[/quote]

Mir kommt das alte Makro fehlerhaft vor, ich habe es jetzt mal neu ohne Zugriff auf die OOo-Bibliotheken geschrieben:

[code]Sub sicherung
xxx = ThisComponent.URL
i = 0
Do
i = i + 1
tmp = Left(xxx, Len(xxx)-i)
Loop While Right(tmp,1)<>"/"
zeit = Split(time(),":")
zeit1 = zeit(0) & zeit(1)
altname = LEFT(Right(xxx,i), LEN(Right(xxx,i))-4)
endung = Right(xxx,3)
neuname = tmp & "Protokolle/" & altname & "_" & zeit1 & "." & endung
FileCopy ConvertFromURL(xxx), ConvertFromURL(neuname)
Exit Sub[/code]

[quote]Gibt es eine Möglichkeit „alte“ Makros zu konvertieren?[/quote]

Diese Frage stellt sich nicht weil es i.d.S keine 'alten' Makros gibt. Besser gesagt es gibt schon gelegentlich Änderungen nur niemand wird sich die Mühe machen dafür einen Konverter zu schreiben, weil ein solcher Konverter einige tausend (wenn nicht mehr) Syntaxformulierungen prüfen können müßte obwohl sich ggf. nur 1 oder 2 geändert gaben. Außerdem könnte ein Konverter nicht sicherstellen das Fehler die durch Neuversionen ins Programm selbst rein kämen bemerkt würden, denn verfügte der Konverter über diese Info, dann wäre sie ja bekannt und der Fehler würde gleich im Programm beseitigt statt nur den Konverter eine Meldung ausgeben zu lassen das ein Fehler vorhanden ist.

[quote]Hat jemand eine entsprechende Funktion unter OOo 2.1 auf andere Weise realisiert?[/quote]

s.o, gerade getan.



Gruß
Stephan

Hallo Community,

ich habe vor meine Diplomarbeit mit OO Writer zu erstellen.

Da ich dazu eine "ordentliche" Datensicherung verwenden möchte, um mögliche Probleme zu minimieren bin ich hier auf folgenden Thread bzgl. der Datensicherung in separaten Dateien gestoßen:

http://de.openoffice.info/viewtopic.php?t=3420

Ich wollte das Makro aus dem Posting von Stephan verwenden, das stammte aber anscheinend noch aus OOo 1.x , unter OOoPortable 2.1 funktioniert es jedenfalls nicht.

Meine Bitte daher:

- Was muß am Quelltext angepasst werden, dass es unter OO 2.1 funktioniert?
- Gibt es eine Möglichkeit „alte“ Makros zu konvertieren?
- Hat jemand eine entsprechende Funktion unter OOo 2.1 auf andere Weise realisiert?

Danke für Eure Hilfe schon mal im Voraus!

Grüße

Benny

P.S.: Ich bin in Makros nicht so fit -> bitte für Otto-Normal-User verständlich antworten! :wink: