OpenOffice.info

Hi,

wollte mal fargen ob du mittlerweile eine Lösung gefunden hast und ob du deinen Code mal posten könntest....

MFG

MoC08

Hi komma4,

danke, ein bischen weiter ist man mit "ConfigurationUpdateAccess" da man tatsächlich Schreibzugriff auf die Struktur "benutzerdaten" bekommt. Dort kann man schreiben und diese Änderung auch wieder auslesen. Leider wird das (noch) nicht in die Konfiguration zurückgeschrieben, so dass bei einem erneuten Start des Makros wieder der urspüngliche Wert gezogen wird. Vielleicht gibt es da noch eine Methode zum Zurückschreiben?

Gruß
Frank

com.sun.star.configuration.ConfigurationUpdateAccess

ich hab's bis jetzt noch nicht benötigt (=verwendet), weiss aber, dass Du einen Schreibzugriff brauchst:

[code]com.sun.star.configuration.ConfigurationUpdateAccess[/code]

Bspw. in [url=http://www.pitonyak.org]Andrews Makro-Dokument[/url]



Hilft Dir das weiter?

sub testscripte_userinfolesen
Dim regval(0) as new com.sun.star.beans.PropertyValue

userdaten = createUnoService("com.sun.star.configuration.ConfigurationProvider")
regval(0).Name = "nodepath"
regval(0).Value = "org.openoffice.UserProfile/Data"
benutzerdaten = userdaten.createInstanceWithArguments("com.sun.star.configuration.ConfigurationAccess", regval())

msgbox benutzerdaten.sn
xray benutzerdaten

   benutzerdaten.sn = "neuer Nachname"     ' Hier knallt es

end sub

Hi,

ich habe ein Codeschnipsel schon gefunden, um die Benutzerdaten (Extras-Optionen-Benutzerdaten) auszulesen. Leider ist dieses Property schreibgeschützt, so dass ich es nicht verändern kann. Auch XRAY gab mir da keinen Anhaltspunkt und meinte auch "read-only". Gibt es vieleicht noch eine andere Möglichkeit, an diese Infos zu kommen, wo man auch schreiben kann?

Hier das Beispiel dazu:
[code]sub testscripte_userinfolesen
Dim regval(0) as new com.sun.star.beans.PropertyValue

userdaten = createUnoService("com.sun.star.configuration.ConfigurationProvider")
regval(0).Name = "nodepath"
regval(0).Value = "org.openoffice.UserProfile/Data"
benutzerdaten = userdaten.createInstanceWithArguments("com.sun.star.configuration.ConfigurationAccess", regval())

msgbox benutzerdaten.sn
xray benutzerdaten

benutzerdaten.sn = "neuer Nachname" ' Hier knallt es

end sub

[/code]

PS: Verwende OO 2.3 unter Windows.