[macro/extension] Connaître la version du logiciel et son nom

fr-users
#1

Bonjour à tous,

Je voudrais savoir comment faire via une macro pour connaître la version de
LibreOffice, s’il s’agit de LibreOffice, d’OpenOffice, d’OpenOffice.org ou
d’une autre variante.

Existe-t-il un équivalent de l’“user-agent” des navigateurs ?

Cordialement,
Olivier

#2

Bonjour Olivier

En attendant mieux il devrait au moins être possible de
partir d'un truc du genre:

sub PysDossierInstall

dim oContext as object

oContext =
GetDefaultContext.getByName("/singletons/com.sun.star.util.theOfficeInstallationDirectories")
print oContext.OfficeInstallationDirectoryURL

end sub

Cordialement
Pierre-Yves

#3

Suite

pierre-yves samyn wrote

En attendant mieux

Par exemple la fonction GetProductname dans la
bibliothèque Tools... :slight_smile:

Cordialement
Pierre-Yves

#4

Ah oui, ok, merci pour la piste.

Sais-tu où se trouvent toutes les clés du registre, car on ne trouve pas
«org.openoffice.Setup/Product» dans le modifyregistry.xcu du profil ?

Cordialement,
Olivier

#5

Suite...

Olivier R. wrote

Sais-tu où se trouvent toutes les clés du registre, car on ne trouve pas
«org.openoffice.Setup/Product» dans le modifyregistry.xcu du profil ?

Pas cherché mais a priori j'aurais plutôt regardé du côté du programme
Par exemple avec W7
C:\Program Files (x86)\LibreOffice 4.0\share\registry

Cordialement
Pierre-Yves

#6

pierre-yves samyn wrote

Pas cherché mais a priori j'aurais plutôt regardé du côté du programme
Par exemple avec W7
C:\Program Files (x86)\LibreOffice 4.0\share\registry

Oui, je suis un imbécile, c’est bien ce que j’avais fait, mais je viens de
me rendre compte en réessayant qu’il ne suffit pas de chercher
“org.openoffice.Setup/Product” pour trouver. Les clés ne sont pas stockées
sous cette forme comme dans le fichier registrymodifications.xcu.

Merci pour l’aide.

Olivier

#7

Bonjour,

Bien que la réponse apportée par PYS soit excellente, la solution macro a été abordée par bm92 (Bernard Marcelly) sur le forum francophone (http://forum.openoffice.org/fr/forum/viewtopic.php?f=8&t=34915&p=192116&hilit=version#p192116) :
GlobalScope.BasicLibraries.loadLibrary("Tools")
MsgBox( GetProductName() )Un coup d'oeil à GetProductName permet d'obtenir séparément nom et version. (Dixit bm92)

Autre piste par formule proposée par Jean-Louis Cadeillan(toujours dans le meme fil) :
=INFO("version")