Liebe OpenOfficeOrg-Gemeinde,

bislang habe ich Texte im wesentlichen mit StarOffice5.2 geschrieben. Das Programm stürzt mir in letzter Zeit zu oft ab (wofür mir eine Erklärung fehlt) und so versuche ich den Wechsel zu OOorg1.1.5.

Für SO52 hatte ich diverse Makros geschrieben, die leider unter OOorg nicht laufen. Ein Marko erlaubte es mir etwa, bestimmte Ordner zu öffnen, um dann dort eine Datei zum Öffnen auszuwählen. Der Befehl ging wie folgt (abrufbar über ein Tastaturkürzel, z.B. Strg+F3):

Sub LadenWeg
'Aufgezeichnetes Makro: Mittwoch, 23. Juli 1997, 13:33
Documents.Open( "file:///d|/eigdatei/gericht/Weg/", "<Alle>", "", "" )
End Sub

Bei OOorg habe ich diverse Versuche gestartet. Am weitesten bin ich mit folgender Befehlsstruktur gekommen:

sub LadenWeg
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 ----------------------------------------------------------------------
rem
dispatcher.executeDispatch(document, ".uno:Open", "", 0, Array())

end sub

Ich lande dann aber nicht in einem Ordner, der von mir vorher bestimmt werden kann. Vielmehr scheint sich jeweils der Ordner zu öffnen, aus welchem zuletzt eine Datei geöffnet wurde.

Hat jemand einen Tip für mich, wie das Problem gelöst werden kann?

Viele Grüße und besten Dank vorab.

Joachim

P.S.: Wenn ich den Pfad zu dem Ordner als Link anlege (in einem gewöhnlichen Textdokument untergebracht) und dann anklicke, öffnet sich ein Fenster, welches dem Explorer-Fenster ähnelt. Über DIESEN Weg funktioniert es also. Nur, das Einbinden in ein Makro will mir nicht gelingen.

P.P.S.: Als Betriebssystem ist bei mir Win2000 im Einsatz.




---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Antwort per Email an