OpenOffice.info

@blubla_Base,

du hast deinen Beitrag an ein gut fünf Jahre altes Thema angehängt, das zudem dein Anliegen bestenfalls sehr beiläufig streift.

Du hast dir ganz offensichtlich außerdem die [url=http://de.openoffice.info/viewtopic.php?f=1&t=54568]Allgemeinen Hinweise zur Forumsbenutzung[/url] nicht durchgelesen, die in jeder Kategorie ganz oben in den Bekanntmachungen zu finden sind.

Also noch mal für dich ganz persönlich:

[quote="Stephan"][b]Eröffnet neue Threads[/b]
verzichtet allgemein darauf bestehende alte Threads zu verlängern, sondern eröffnet bevorzugt neue Threads[/quote]
In deinem neuen Thread beschreibe dann bitte etwas genauer, was du tun oder erreichen willst, was du bisher unternommen hast und wo es klemmt. »[i]ich bekomm das einfach nicht hin[/i]« reicht nicht!

Gruß
lorbass

Hallo,

ich bekomm das einfach nicht hin.Meine Idee ist in einem "Text feld" den Verzeichniss Pfad zu einer benannten Datei ,z.b Infoblatt_jpg,Anleitung_pdf,oder auch ein Writer Dokument einzutragen.
Dann eine Schaltfläche einzubauen die genau diese Datei (aus dem passenden Datensatz) aufruft.
Die Dateien liegen alle im gleichen Verzeichniss/Ordner.
Makro Programierung bekomm ich leider nur sehr mühsam zustande.



win 7 32 bit
Aoo 3.4.1

Das ist ja der Hammer funktioniert einwandfrei, und man bruch sich keine Gedanken darüber machen, in welchem Verzeichnis AcrobatReader gespeichert ist. Supi


Danke Jürgen und Thomas

MfG Felix :D

Hallo Thomas,

Deine Hilfe ist wieder einfach genial. :D
Danke!

Jürgen

sub PDFDateiOeffnen
  oSer = createUNOService("com.sun.star.system.SystemShellExecute")
  oSer.execute("C:\CodeSpalteEinfuegen.pdf",,0)
end sub

Hey,

also, ohne das auszuprobieren: Das Problem könnten die Leerzeichen im Pfadnamen sein - oder, oder , oder...

Egal, ihr solltet sowieso nicht den Basic-Befehl nutzen sondern eher den UNO-Service. Da "umschift" ihr viele Probleme:

[code]
sub PDFDateiOeffnen
oSer = createUNOService("com.sun.star.system.SystemShellExecute")
oSer.execute("C:\CodeSpalteEinfuegen.pdf",,0)
end sub
[/code]
Da braucht ihr Euch keine Gedanken zu machen, wo dei benötigte Applikation liegt - wenn der Mime-Typ im System angemeldet ist, weiss das System selbst, mit welchen Programm die Datei geöffent weren soll :-)

Viele Grüße
Thomas

Hallo,

also ich habe es wie oben noch hinzugefügt, auch noch einmal auf einem PC mit WinXP probiert und da funktioniert es einwandfrei.

OpenOffice habe ich komplett installiert.

Werde OO einfach noch mal neu installieren.

MfG Felix

Hi Felix,

ich kann mich an einen Fall erinnern, wo es ein Makroproblem gab, wo der Anwender in diesem Fall "Base" nicht installiert hatte.
Nach Installation der kompletten Version war der Fehler behoben.

Jürgen

Hmm,

das ist ja interessant?
Vielleicht hilft es etwas, wenn ich OO noch einmal neu installiere?
Oder kennt jemand die Lösung des Problems?

Edit 13:00:00 Uhr

Habe es jetzt auch noch einmal auf einem WinXP Rechner probiert, und siehe da es klappt einwandfrei, wie schon von Jürgen beschrieben.
Ich brauche das aber so, dass ich das Makro auf verschiedenen Betriebssystemen ausführen kann. Ist das möglich?

Oder liegt es doch an einem Installationsfehler ect.?

MfG Felix

Hallo Felix,

ich habe das Makro aus den Anwendungen Calc, Writer und Base ohne Probleme gestartet.
Habe auch versucht diese Fehlermeldung zu provozieren was mir nicht gelungen ist.
Wenn der Pfad zum Programm falsch ist dann kommt die Fehlermeldung: Datei nicht gefunden.

Schöne Grüße

Jürgen

Hallo,

zuerst Danke für die Antwort.
Allerdings habe ich ein Problem dabei unzwar bekomme ich beim Ausführen immer die Meldung:

[quote]Basic Laufzeitfehler
Nicht implementiert[/quote]
dabei ist die Zeile mit dem Shell befehl blau hinterlegt.

Ich arbeite mit OO 2.2.1 unter WinME
Die Pfade habe ich entsprechend angepasst.

Mfg Felix

Sub PDF_Datei_Oeffnen
	oDoc=ThisComponent
	url="C:\CodeSpalteEinfuegen.pdf" 'Pfad der zu der Datei anpassen
	sPfad = "C:\Programme\Foxit Software\Foxit Reader\Foxit Reader.exe" 'Pfad der zu verwendenden Applkation anpassen
	Shell(sPfad + " " + url,3) 'nun öffnen der Datei mit dem angegebenen Programm
	end sub

Hi Felix,

kurz aber schmerzlos:
[code]Sub PDF_Datei_Oeffnen
oDoc=ThisComponent
url="C:\CodeSpalteEinfuegen.pdf" 'Pfad der zu der Datei anpassen
sPfad = "C:\Programme\Foxit Software\Foxit Reader\Foxit Reader.exe" 'Pfad der zu verwendenden Applkation anpassen
Shell(sPfad + " " + url,3) 'nun öffnen der Datei mit dem angegebenen Programm
end sub[/code]

Viel Erfolg.

Jürgen

Hallo,

ich bins noch mal wieder.

wie ist es Möglich, eine PDF Datei mittels Makro zu öffnen?

Ich habe schon hier im Forum gesucht und im Netz aber nichts passendes gefunden.

wäre echt nett wenn mir noch mal geholfen würde.

MfG Felix