Moin,
> derzeit erweitere ich ein bestehendes AddIn für Open Office- Dafür ist
es
> nötig zu Reportingzwecken die Version des OpenOffice auszulesen. Nach
> mittlerweile mehreren Stunden des Suchens im Internet, habe ich immer
noch
> keine Möglichkeit gefunden. Gibt es seitens Open Office eine
Möglichkeit,
> die Version von open Office auszulesen? Wird die Version eventuell in
der
> Registry hinterlegt?
Folgendes sollte helfen, bei mir, Version 4.1.2, läuft es:
Sub ShowVersionOfOOo
m=OOoVersion()
msgbox m
End Sub
Function OOoVersion() As String
'Retreives the running OOO version
'Author : Laurent Godard
'e-mail : listes.god...@laposte.net
Dim aSettings, aConfigProvider
Dim aParams2(0) As new com.sun.star.beans.PropertyValue
Dim sProvider$, sAccess$
sProvider = "com.sun.star.configuration.ConfigurationProvider"
sAccess = "com.sun.star.configuration.ConfigurationAccess"
aConfigProvider = createUnoService(sProvider)
aParams2(0).Name = "nodepath"
aParams2(0).Value = "/org.openoffice.Setup/Product"
aSettings = aConfigProvider.createInstanceWithArguments(sAccess,
aParams2())
OOOVersion=aSettings.getByName("ooSetupVersion")
End Function
Siehe auch:
http://www.dannenhoefer.de/faqstarbasic/WiekannmandieinstallierteVersionfeststel.html
Gruß
Jan
---------------------------------------------------------------------
To unsubscribe, e-mail: users-de-unsubscr...@openoffice.apache.org
For additional commands, e-mail: users-de-h...@openoffice.apache.org
