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

Re-bonjour,

Mon obstination à chercher a fini par payer.
J'ai finalement trouver en Macro.
J'aurais préféré un champ Writer pour éviter la macro, mais ça fait 
quand même mon affaire.

Pour ceux que ça intéresse la voici :

Function VersionLO() as string
   Dim oConfigProvider as Object, GetRegistryKeyContent as Object
   Dim aNodePath(0) as new com.sun.star.beans.PropertyValue
   Dim sVersion as String
      oConfigProvider = 
createUnoService("com.sun.star.configuration.ConfigurationProvider")
      aNodePath(0).Name = "nodepath"
      aNodePath(0).Value = "org.openoffice.Setup/Product"
      GetRegistryKeyContent = 
oConfigProvider.createInstanceWithArguments("com.sun.star.configuration.ConfigurationAccess", 
aNodePath())
      sVersion = GetRegistryKeyContent.getByName("ooSetupVersion")
   VersionLO = sVersion
End function

Bonne journée
Patrick




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