Zugriff von VB auf DispatchHelper?

[ubsch]

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!

[drogon]

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