Dokument Formular

[harald235]

Hallo Fabiii,

shell("C:\Program Files\Adobe\Reader 10.0\Reader",1,stFeld)

Möglicherweise fehlt auch nur ein ".exe" bei Deinem letzten Reader-eintrag: "C:\Program Files\Adobe\Reader 10.0\Reader.exe". Wenn .exe fehlt kommt zumindest ein Warnhinweis bei mir.

Da Du aber immer sehr sparsam mit konkreten Angaben bist,

hab ich gemacht doch es geht nicht.

kann man Dir kaum konkret helfen. Etwas mehr Mühe könntest Du Dir da schon geben.

Gruß harald

[Fabiii]

Hallo
vielen Dank für deine Antwort.
Also es geht auch nicht mit dem .exe
Was soll ich denn da noch sagen hier der Code:

Code: Alles auswählen

REM  *****  BASIC  *****

SUB PDF_Aufruf
	DIM oDoc AS OBJECT
	DIM oDrawpage AS OBJECT
	DIM oForm AS OBJECT
	DIM oFeld AS OBJECT
	oDoc=thisComponent
	oDrawpage=oDoc.Drawpage
	REM Lage des Feldes in dem entsprechenden Formular aufsuchen
	oForm=oDrawpage.Forms.getByName("Formular")
	oFeld=oForm.getByName("Dateiauswahl")
	REM Den Text aus der Dateiauswahl auslesen
	stFeld=oFeld.Text
	REM Start des *.pdf-Files mit der entsprechenden Datei
	REM 1: Das Programm erhält den Fokus und wird in einem Fenster in Normalgröße gestartet.
	shell("C:\Program Files\Adobe\Reader 10.0\Reader.exe",1,stFeld)
END SUB

Gruß
Fabi

[RobertG]

Hallo *,

ich habe jetzt einige Zeit getüftelt um dahinter zu kommen, wie der Aufruf ohne Programmangabe systemunabhängig funktioniert:

Code: Alles auswählen

SUB Datei_Aufruf
	DIM oDoc AS OBJECT
	DIM oDrawpage AS OBJECT
	DIM oForm AS OBJECT
	DIM oFeld AS OBJECT
	DIM oShell AS OBJECT
	oDoc=thisComponent
	oDrawpage=oDoc.Drawpage
	REM Lage des Feldes in dem entsprechenden Formular aufsuchen
	oForm=oDrawpage.Forms.getByName("Formular")
	oFeld=oForm.getByName("Dateiauswahl")
	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(stFeld,,0)
END SUB

Ich hatte immer die Konvertierung außen vor gelassen - war doch eine Pfadangabe, so dachte ich.
Der Code oben funktioniert unabhängig von der Betriebssystemversion und unabhängig von der zu öffnenden Datei. Ich habe testweise ein Bild und eine *.pdf-Datei geöffnet - geht.

Gruß

Robert

[Fabiii]

Hallo,
vielen Dank bei mir kommt dann diese Meldung:

Gruß
Fabi

[RobertG]

Hallo Fabi,

entweder musst Du das Makro umbenennen (ich habe es "Datei_Aufruf" genannt) oder Du musst den alten Aufruf durch den neuen ersetzen.
Die Meldung sagt Dir, dass das erforderliche Script aus Deinem Formular nicht gefunden wurde - es heißt ja jetzt auch anders ...

Gruß

Robert

[harald235]

Hallo Robert,

Dein Makro ist der Hammer. Ich habe damit geöffnet:
Alle Arten von LibreOffice-Anwendungen, *.jpg-, *.tif- und *.bmp-Bilder. Das unter openSUSE 12.1 und Windows 7. Unter Windows spaßhalber noch CorelDraw-Dateien und Elster-Formulare (Steuer), sowie *.doc's die auch mit Word und *.xls, die auch mit Exel geöffnet werden.

Alles funktioniert einwandfrei. Respekt!

Gruß harald

[Decurtins]

Bei mac (Unix) reicht übrigens ein einfaches "open" vor die URL, damit wird das systemweite Standardprogramm für das entsprechende File-suffix (.pdf) geöffnet.

z.B.:

Code: Alles auswählen

befehl = "open " + stFeld
shell(befehl)

gibt es dazu auch eine windows (Dos)-Variante?

[RobertG]

Soweit wir das getestet haben ist bei Windows über "shell" immer die gesamte Pfadangabe notwendig, in der das Programm zu finden ist.
Das wurde bei einem anderen Thread auch schon diskutiert:
http://www.libreoffice-forum.de/viewtop ... 57&start=0

Gruß

Robert