OpenOffice.info

Verfasst: **Mo, 07.05.2007 18:26**

Hallo,
Ich schreibe mit VB ein Programm mit Zugriff auf OO (Writer). Alles funktioniert, ich habe auf alle gewünschten Services Zugriff, z.B.

Code: Alles auswählen

Set oManager = CreateObject("com.sun.star.ServiceManager")
Set oDesk = oManager.createInstance("com.sun.star.frame.Desktop")

Nur bei

Code: Alles auswählen

Set oDispatcher = oManager.createInstance("com.sun.star.frame.DispatchHelper")

bekomme ich die Fehlermeldung "ServiceNotRegisteredException"

Wer kann helfen?

Danke!

Verfasst: **Do, 13.09.2007 09:01**

So sollte es gehen:

Dim oDispatcher As Object

Set oDispatcher = CreateUnoServiceVB("com.sun.star.frame.DispatchHelper")

Public Function CreateUnoServiceVB(strServiceName) As Object
Dim oServiceManager As Object
Set oServiceManager = CreateObject("com.sun.star.ServiceManager")
Set CreateUnoServiceVB = oServiceManager.createInstance(strServiceName)
End Function

mfg
drogon

OpenOffice.info

Zugriff von VB auf DispatchHelper?

Zugriff von VB auf DispatchHelper?

Re: Zugriff von VB auf DispatchHelper?