OpenOffice.info

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

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

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

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]Set oManager = CreateObject("com.sun.star.ServiceManager")
Set oDesk = oManager.createInstance("com.sun.star.frame.Desktop")[/code]

Nur bei
[code]Set oDispatcher = oManager.createInstance("com.sun.star.frame.DispatchHelper")[/code]

bekomme ich die Fehlermeldung "ServiceNotRegisteredException"

Wer kann helfen?

Danke!