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