Hallo,
Folgendes Problem:
Hallo Winfried
Erst Mal danke für die Mühe.
Hier der Code mit deiner Ergänzung, der eine Fehlermeldung produziert:
"Symbol Bewerbungsschreiben bereits anders definiert."
sub Bewerbungsschreiben
rem
----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem
----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem
----------------------------------------------------------------------
'dispatcher.executeDispatch(document, ".uno:NewDoc", "", 0, Array())
GlobalScope.BasicLibraries.LoadLibrary("Tools")
oDok =
StarDesktop.loadComponentFromURL(convertToUrl(Bewerbungsschreiben.odt),
"_blank", 0,
Array())
end sub
Danke auch an Manfred K. Ist aber nicht das, was ich suchte. Herzliche
Grüße
Manfred
Freundliche Grüße
Manfred Becker
_____
WINXP
OO 2.3.1
Manfred Johannes Becker
(Diplom-Psychologe und Diplom-Pädagoge)
Berlin
