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 à [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
