2.3.38 Wie kann man die installierte Version feststellen?
Die Information steht in den Setupdaten.
Mit einer Funktion von Laurent Godard kann man diese auslesen.

Sub ShowVersionOfOOo
   m=OOoVersion()
   msgbox m
End Sub

Function OOoVersion() As String
  'Retreives the running OOO version
  'Author : Laurent Godard
  'e-mail : listes.godard@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
Seitenanfang