Hallo Werner, *, ich habe das Problem jetzt mit Hilfe aus dem OOo-Forum lösen können. Es existierte schon länger ein Code, der aber so im Prinzip nichts anderes machte als getSolarVersion(). In diesem Code war aber ein Array drin, das alle notwendigen Informationen bereit hielt. Hier der Komplettcode der Funktion:
------------------ FUNCTION OfficeVersion() AS STRING 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()) OfficeVersion = aSettings.ooName + "|" + aSettings.ooSetupVersionAboutBox END FUNCTION ------------------- Damit bekomme ich die Office Version (LibreOffice oder OpenOffice) sowie hinter dem senkrechten Strich die komplette Version, z.B. 4.1.5.3 Gruß Robert -- Liste abmelden mit E-Mail an: [email protected] 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
