Speicherpfad in Dokumentvorlage?

de-users
#1

Hallo Frieder,

tolles Angebot! vielen Dank; evtl. komme ich wirklich darauf zurück.
Mir würde es bereits genügen, wenn ich den Code (allgemeine Pfadangaben) hätte, um daraus zu lernen.
Die Stelle der Pfadübergabe ist dann ja sicher leich anzupassen.

Würdest du das wirklich für mich machen?

Danke und Gruß,
Marcus

#2

Hallo Marcus

Hallo Frieder,

tolles Angebot! vielen Dank; evtl. komme ich wirklich darauf zurück.
Mir würde es bereits genügen, wenn ich den Code (allgemeine Pfadangaben) hätte, um daraus zu lernen.
Die Stelle der Pfadübergabe ist dann ja sicher leich anzupassen.

Würdest du das wirklich für mich machen?

Ja das würde ich machen.

die einfachst Methode ist, wenn du die Volgenden Makros in die Standardbibliothek der Vorlage kopierst.
  Anschließend verknüpfst du das Makro "on_Start" Mit dem Ereignis "Dokument wurde geöffnet"
Und das Makro "on_Close" Mit dem Ereignis "Dokument schließen"
(Extras-> Anpassen->Ereignisse..)
Der Pfad in "on_Close" Passt du so an, dass es der Pfad ist, unter dem alle Dokumente gespeichert werden.
Der Pfad in "on_Start" ist der Pfad, unter dem das Dokument gespeichert werden soll.

Hier der Code:

Sub on_Start
dim oPfade
oPfade = createUnoService("com.sun.star.util.PathSettings")
oPfade.Work = ConvertToUrl("C:\Users\Nansen\Desktop")
End Sub
'-----------------------
Sub on_Close
oPfade = createUnoService("com.sun.star.util.PathSettings")
oPfade.Work =ConvertToUrl("C:\Users\Nansen\Documents")
End sub

Natürlich ist diese Methode noch nicht perfekt.
Ich arbeite gerade noch an einer besseren Lösung

Gruß Frieder

#3

Hallo Marcus

Hallo Marcus

Hallo Frieder,

tolles Angebot! vielen Dank; evtl. komme ich wirklich darauf zurück.
Mir würde es bereits genügen, wenn ich den Code (allgemeine Pfadangaben) hätte, um daraus zu lernen.
Die Stelle der Pfadübergabe ist dann ja sicher leich anzupassen.

Würdest du das wirklich für mich machen?

Ja das würde ich machen.

die einfachst Methode ist, wenn du die Volgenden Makros in die Standardbibliothek der Vorlage kopierst.
Anschließend verknüpfst du das Makro "on_Start" Mit dem Ereignis "Dokument wurde geöffnet"
Und das Makro "on_Close" Mit dem Ereignis "Dokument schließen"
(Extras-> Anpassen->Ereignisse..)
Der Pfad in "on_Close" Passt du so an, dass es der Pfad ist, unter dem alle Dokumente gespeichert werden.
Der Pfad in "on_Start" ist der Pfad, unter dem das Dokument gespeichert werden soll.

Hier der Code:

Sub on_Start
dim oPfade
oPfade = createUnoService("com.sun.star.util.PathSettings")
oPfade.Work = ConvertToUrl("C:\Users\Nansen\Desktop")
End Sub
'-----------------------
Sub on_Close
oPfade = createUnoService("com.sun.star.util.PathSettings")
oPfade.Work =ConvertToUrl("C:\Users\Nansen\Documents")
End sub

Natürlich ist diese Methode noch nicht perfekt.
Ich arbeite gerade noch an einer besseren Lösung

Gruß Frieder

Ich habe mich leider mit den Ereignissen geirrt:
Das Makro "on_Start" muss mit dem Ereignis "Neues Dokument" verknüpft werden.
und das Makro "on_Close" mit dem Ereignis "Dokument wird geschlossen".

Gruß Frieder