Hallo Horst, Bitte keine Anhänge/keine HTML-Mails (erhöht auch ungemein die Antwortwahrscheinlichkeit)
Und auch nur eine Frage pro Posting, das fördert die Übersicht (und erleichtert die Suche im Archiv) 2008/10/26 Horst Schulze <[EMAIL PROTECTED]>: > wo finde ich per makro die Version des installierten OO Siehe in den mitgelieferten Makros (Tools → Misc) - unten minimal abgewandelt GetSolarVersion liefert die Codelinie zurück, ooSetupVersion ist nur major.minor und die ooSetupVersionAboutBox ist die volle Versionsnummer, so wie im Hilfe|Über OOo Dialog (major.minor.micro). ooSetupVersionAboutBox gabs in den ersten 2er Versionen noch nicht, also Fehlerbehandlung dazubauen... Siehe auch: http://codesnippets.services.openoffice.org/Office/Office.Version.snip (näher an der API, ohne Basic-"Abkürzung" wie unten, aber anonsten dieselbe Methode) Sub Main print GetProductVersion() print GetSolarVersion() End Sub Function GetProductVersion() as String Dim oProdNameAccess as Object Dim sVersion as String Dim sAbout as String oProdNameAccess = GetRegistryKeyContent("org.openoffice.Setup/Product") sVersion = oProdNameAccess.getByName("ooSetupVersion") sAbout = oProdNameAccess.getByName("ooSetupVersionAboutBox") GetProductVersion = sVersion & "-" & sAbout End Function ciao Christian
