Bonjour Jean-François,
Effectivement je n'avais pas précisé le module mais dans ma tête quand
je pense "document" c'est Writer. (désolé)
J'avais fini par trouver une macro, mais la tienne me semble beaucoup
plus simple.
Merci beaucoup
Patrick
Le 08/09/2024 à 11:49, Jean-Francois Nifenecker a écrit :
Bonjour Patrick,
tu ne précises pas de quel type de document tu parles : Calc ? Writer
? autre ?
Donc, par macro on interroge le registre de LibO :
8< -----------------------------------------------------
Function GetLibreOfficeVersion() As String
Dim lo_ProdNameAccess As Object
Dim l_Ver As String
GlobalScope.BasicLibraries.LoadLibrary("Tools")
lo_ProdNameAccess =
Tools.GetRegistryKeyContent("org.openoffice.Setup/Product")
l_Ver = lo_ProdNameAccess.getByName("ooSetupVersion")
GetLibreOfficeVersion = l_Ver
End Function 'GetLibreOfficeVersion
----------------------------------------------------- >8
Retourne "24.8" par exemple.
Tu peux poser cette macro dans la bibliothèque Standard de Mes macros,
de façon qu'elle soit toujours accessible de tous les modules LibO.
Par exemple, tu peux l'utiliser dans une formule Calc :
= GETLIBREOFFICEVERSION()
Bon week-end.
--
Envoyez un mail à [email protected] pour vous désinscrire
Les archives de la liste sont disponibles à
https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy
