Re: [fr-users] Numéro version LO

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.
--
Jean-Francois Nifenecker, Bordeaux


Le 08/09/2024 à 11:16, Patrick a écrit :
> Bonjour à toutes et tous,
>
> J'aimerais insérer automatiquement le numéro de version courant de 
> LibreOffice dans mes documents.
> Soit directement dans un champ, une variable, etc, soit par macro.
> Je n'ai pas encore réussi à trouver par recherche sur Internet, site LO, 
> Wiki, etc...
>
> Est-ce que quelqu'un saurait le faire ?
>
> Merci
> Bonne journée
> Patrick


--
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy