OpenOffice.info

Vielen Dank Robert!

Es funktioniert Einwandfrei :-)

Gruss
Luis

 oShell.execute("open " +stFeld,,0)

oShell.execute(stFeld,,0)

Hallo Luis,

bei mir, unter Linux, wäre der Befehl so auch nicht brauchbar:
[code] oShell.execute("open " +stFeld,,0)[/code]
Es würde nur stFeld ohne ein zusätzliches "open " weitergegeben:
[code]oShell.execute(stFeld,,0)[/code]

Gruß

Robert

   oShell.execute("open " +stFeld,,0)

SUB Dateianzeigen
   
   DIM oDoc AS OBJECT
   DIM oDrawpage AS OBJECT
   DIM oForm AS OBJECT
   DIM oFeld AS OBJECT
   DIM oShell AS OBJECT
   DIM stFeld AS STRING
   oDoc=thisComponent
   oDrawpage=oDoc.Drawpage
   REM Lage des Feldes in dem entsprechenden Formular aufsuchen
   oForm=oDrawpage.Forms.getByName ("MainForm")
   oFeld=oForm.getByName("txtPfad_CV")
   REM Den Text aus der Dateiauswahl auslesen
   stFeld=oFeld.Text
   REM Start des Files mit der entsprechenden URL-Verbindung
   oShell = createUnoService("com.sun.star.system.SystemShellExecute")
   stFeld = convertToUrl(stFeld)
   oShell.execute("open " +stFeld,,0)
END SUB

Hallo Robert

Vielen Dank!

Perfekt, jetzt läuft das Makro durch bis zur zweitletzten Zeile:

[code] oShell.execute("open " +stFeld,,0)[/code]

Ich habe den Ablauf im Terminal auf dem Mac simuliert - es hat einwandfrei geklappt.
Aber im Formular wird eine Exception ausgelöst (Type: com.sun.star.system.SystemShellExecuteException, Message: Undefined Error: 0.)

Hast du eine Idee was das Problem sein könnte?

[code]SUB Dateianzeigen

DIM oDoc AS OBJECT
DIM oDrawpage AS OBJECT
DIM oForm AS OBJECT
DIM oFeld AS OBJECT
DIM oShell AS OBJECT
DIM stFeld AS STRING
oDoc=thisComponent
oDrawpage=oDoc.Drawpage
REM Lage des Feldes in dem entsprechenden Formular aufsuchen
oForm=oDrawpage.Forms.getByName ("MainForm")
oFeld=oForm.getByName("txtPfad_CV")
REM Den Text aus der Dateiauswahl auslesen
stFeld=oFeld.Text
REM Start des Files mit der entsprechenden URL-Verbindung
oShell = createUnoService("com.sun.star.system.SystemShellExecute")
stFeld = convertToUrl(stFeld)
oShell.execute("open " +stFeld,,0)
END SUB[/code]

Gruss Luis

oForm=oDrawpage.Forms.getByName ("Berater")

oForm=oDrawpage.Forms.getByName("MainForm")

Hallo Luis,

das Makro stoppt nicht an der von Dir genannten Stelle, sondern eine Zeile später.
Mache aus
[code]oForm=oDrawpage.Forms.getByName ("Berater")[/code]
[code]oForm=oDrawpage.Forms.getByName("MainForm")[/code]
denn so heißt das Formular, wenn Du Dein Formulardokument zum Bearbeiten öffnest. "Berater" ist die Bezeichnung für die komplette Formulardatei. Innerhalb dieser Datei gibt es Hauptformulare, Unterformulare oder auch Nebenformulare usw.
Am besten öffnest Du einmal das Formulardakument zum Bearbeiten und lässt Dir die Struktur über den Formularnavigator anzeigen (links unten im Formular, 5. Button).

Gruß

Robert

Hallo Robert

Vielen Dank für deine schnelle Antwort.

Genau! Das Formular soll gestartet werden wenn der Button gedrückt wird.
Im Kontrollfeld unter Ereignisse -- Aktion ausführen, habe ich das Makro eingebunden.

Vollständigkeitshalber ist im Anhang die DB.

Hallo Luis,

von wo aus startest Du denn Dein Makro. Von der Anlage her ist das ein, das mit einem Button aus einem Formular heraus startet.

Gruß

Robert