Seite 1 von 1
Re: PDF-Datei aus Tabellenfeld öffnen mit Makro
Verfasst: Mi, 03.12.2014 15:26
von RobertG
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
Re: PDF-Datei aus Tabellenfeld öffnen mit Makro
Verfasst: Mi, 03.12.2014 16:41
von Luis
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.
Re: PDF-Datei aus Tabellenfeld öffnen mit Makro
Verfasst: Mi, 03.12.2014 19:33
von RobertG
Hallo Luis,
das Makro stoppt nicht an der von Dir genannten Stelle, sondern eine Zeile später.
Mache aus
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
Re: PDF-Datei aus Tabellenfeld öffnen mit Makro
Verfasst: Mi, 03.12.2014 20:13
von Luis
Hallo Robert
Vielen Dank!
Perfekt, jetzt läuft das Makro durch bis zur zweitletzten Zeile:
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: Alles auswählen
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
Gruss Luis
Re: PDF-Datei aus Tabellenfeld öffnen mit Makro
Verfasst: Mi, 03.12.2014 21:39
von RobertG
Hallo Luis,
bei mir, unter Linux, wäre der Befehl so auch nicht brauchbar:
Es würde nur stFeld ohne ein zusätzliches "open " weitergegeben:
Gruß
Robert
Re: PDF-Datei aus Tabellenfeld öffnen mit Makro
Verfasst: Mi, 03.12.2014 22:20
von Luis
Vielen Dank Robert!
Es funktioniert Einwandfrei
Gruss
Luis