Re: [de-users] Re: Speicherpfad in Dokumentvorlage?

Hallo Marcus

Am 07.02.2012 13:11, schrieb Marcus Hoffmann:
> 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

--
Informationen zum Abmelden: E-Mail an users+help@de.libreoffice.org
Probleme? http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert