Suspicion de regression dans l'API avec CreateObject("com.sun.star.ServiceManager")

fr-users
#1

Bonjour à tous,

La commande utilisée en VBA

Set ServiceManager = CreateObject("com.sun.star.ServiceManager")

qui permet de se connecter à LibreOffice, ne fonctionne pas avec la version LO Win 5.1.3.2 64 bits.
Elle fonctionne correctement avec la version LO Win 5.1.3.2 32 bits et LO Win 5.0.6
Pouvez-vous confirmer ?

Si vous avez MsWord >= 2007 installé, il suffit de créer un macro contenant le code suivant

Set objServiceManager = CreateObject("com.sun.star.ServiceManager")
Set objCoreReflection= objServiceManager.createInstance("com.sun.star.reflection.CoreReflection")
Set objDesktop= objServiceManager.createInstance("com.sun.star.frame.Desktop")
Dim args()
Set objDocument= objDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, args)

et de l'executer. Un fichier Writer vierge doit s'ouvrir.
Merci.

#2

Bonjour à tous,

Concerne uniquement Windows.

La commande utilisée en VBA

Set ServiceManager = CreateObject("com.sun.star.ServiceManager")
qui permet de se connecter à LibreOffice, ne fonctionne pas avec la version LO Win 5.1.3.2 64 bits.
Elle fonctionne correctement avec les versions LO Win 5.1.1.3 64 bits LO Win 5.1.3.2 32 bits et LO Win 5.0.6

Il semble qu'il y ait une régression de LO Win 5.1.1.3 64 bits à LO Win 5.1.3.2 64 bits

Pouvez-vous confirmer ?

Il suffit dans l'éditeur de Macros de créer et de lancer la macro :
Sub TestServiceManager

Set objServiceManager = CreateObject("com.sun.star.ServiceManager")
Set objCoreReflection= objServiceManager.createInstance("com.sun.star.reflection.CoreReflection")
Set objDesktop= objServiceManager.createInstance("com.sun.star.frame.Desktop")
Dim args()
Set objDocument= objDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, args)

End Sub

Vous obtiendrez soit la création d'un doc writer vierge soit un crash ...

Merci pour vos retours.