[РЕШЕНО]Узнать версию офиса

[bigor]

Добрый день.

Можно ли макросом вывести наименование/версию используемого офиса.

Т.е. например запускаю макрос из под LibreOffice, он мне и выводит LibreOffice  6.1.5.
Запускаю в OpenOffice  - видим OpenOffice 4.0.1

[Yakov]

В Calc есть функция

=INFO("release") или =ИНФОРМ("release")

Но выводит кодовый номер сборки, что-то вида 413m1(Build:9783) или c838ef25c16710f8838b1faec480ebba495259d0

[bigor]

а как в этом c838ef25c16710f8838b1faec480ebba495259d0 разобраться что libre, что open?

[mikekaganski]

https://forum.openoffice.org/en/forum/viewtopic.php?f=20&t=66567

Код Выделить Развернуть


Function getOName() As String
 getOName = getOOoSetupValue("/org.openoffice.Setup/Product","ooName")
end Function
Function getOVer() As String
 getOVer = getOOoSetupValue("/org.openoffice.Setup/Product","ooSetupVersion")
end Function
Function getOOoSetupValue(sNodePath$,sProperty$)
Dim oNode
  oNode = getOOoSetupNode(sNodePath)
  getOOoSetupValue = oNode.getbyname(sProperty)
End Function
Function getOOoSetupNode(sNodePath$)
Dim aConfigProvider, oNode, args(0) As new com.sun.star.beans.PropertyValue
  aConfigProvider = createUnoService("com.sun.star.configuration.ConfigurationProvider")
  args(0).Name = "nodepath"
  args(0).Value = sNodePath
  getOOoSetupNode = aConfigProvider.createInstanceWithArguments("com.sun.star.configuration.ConfigurationAccess", args())
End Function

[mikekaganski]

Кстати, эта функция есть штатно - функция GetProductname в модуле Misc.

[bigor]

https://forum.openoffice.org/en/forum/viewtopic.php?f=20&t=66567

Да, это оно. Спасибо.

функция GetProductname в модуле Misc.

а это вообще красота