---

Hallo,

ich möchte gerne (ohne großen Aufwand) einen Knopf in mein SW einbauen, der bei Betätigung ein bestimmtes PDF-Dokument öffnet.

Vielen Dank im Voraus!!!
MM

------------------
MFG
MM

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,
Du hast Glück ist eigentlich eine ganz einfache Sache.
Über extras-->anpassen-->Befehle-->Makros kannst du dir so einen "Schalter" auf die Befehlszeile ziehen.
Da kannst du dann ein einfaches Makro hinterlegen dass das Dokument öffnet, z.B. über den "Shell" Befehl.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

KOAnlage1.jpg KOAnlage2.jpg

Hallo,

es geht auch ohne Macro. Im Featurebaum auf Teil, RMT -> ausgeblendete Strukturelemente -> Konstruktionsordner -> Anlage hinzufügen (Haken bei Verknüpfung setzen).
Aufruf: Konstruktionsordner -> entsprechendes PDF Doppelklick.

Gruß HaPe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ach, das ist für alle Dokumente gültig? Hätt ich mir mal genauer anschauen sollen   

makro Befehl sähe übrigens zum Beispiel so aus (mit Foxit Re
ader):

Dim swApp As Object
Sub main()
Shell "C:\Programme\Foxit Software\Foxit Reader\Foxit Reader.exe c:\torsion.df.pdf", vbNormalFocus

End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke erstmal euch beiden!

habe es wie folgt versucht bzw. angepasst:

Dim swApp As Object
Sub main()
Shell "C:\Programme\Adobe\Reader 8.0\Reader\AcroRd32.exe Z:\sw_tools\Regeln\Regeln 090525.pdf"
End Sub

PDF Programm öffnet, aber mit folgender Meldung "...blabla fehler, Datei konnte nicht gefunden werden" ---die ist aber da. Sorry hab wirklich wenig Ahnung von Makros etc.

Gruß
MM

------------------
MFG
MM

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das liegt vllt am Freizeichnen im Dateinamen, da gibts gerne Probleme.
Also entweder mal die Datei umbenennen oder was glaub ich auch geht ist Regel~1 (oder 0?) anstatt den ganzen DAteinamen einzugeben.
Damit sagst du VB eben dass es irgendwie weitergeht^^.
Oder eben so wie HaPe das ganze vorgeschlagen hat geht es natütrlich auch ohne Makro. Hat den Vorteil dass nicht jeder den Acrobat Reader an der gleichen Stelle haben muss.

Zu HaPes Tip fällt mir noch ein, dass du die Datei nach dem Hinzufügen dann als Vorlage (prtdot) speichern solltest damit sie auch immer in der Datei drinne ist.

schwitzenden Gruß...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Baumjäger,

wenn man das in den Vorlagen macht dann schon  , oder aber im Konstruktionsjournal Hyperlinks einfügen, sollte auch gehen.

Gruß HaPe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Super, hat geklappt, DANKE!!!

------------------
MFG
MM

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Nu hab ich doch noch eine Frage:

wie muss es aussehen, wenn jemand den Acr.reader 8.0 hat und der andere 9.0

Dim swApp As Object
Sub main()
Shell "C:\Programme\Adobe\Reader 8.0\Reader\AcroRd32.exe Z:\sw_tools\Regeln\Regeln 090525.pdf"
End Sub

Ich habs hier auch mit dem ...\Reader~1\Reader\Acr... versucht, klappt nur leider nicht.
Meine Absicht war, dass alle das gleiche Makro verwenden.

Danke und Gruß
MM

------------------
MFG
MM

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Besser wäre es, du öffnest das Dokument mit der auf deinem Rechner dafür installierten Standardanwendung. Dann brauchst du dich nicht darum zu kümmern, ob der User den Acrobat Reader 8 oder 9 oder den Foxit Reader etc. benutzt. Mit einer Windows-API-Funktion geht das ganz einfach:

Code:

---

Dim swApp As Object
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
    ByVal hWnd As Long, ByVal lOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
   
Sub main()
Call ShellExecute(&H0, "open", "Z:\sw_tools\Regeln\Regeln 090525.pdf", vbNullString, vbNullString, vbShowNormal)

End Sub

---

Das geht natürlich mit allen Dokumententypen, für die bei dir eine Anwendung zum Öffnen definiert ist.

Der Tipp stammt übrigens von Code-Friends. Das lässt sich auch nutzen, um Dokumente zu drucken, eine URL zu öffnen oder Mails zu verschicken und diverse andere Sachen zu machen. Ist schön beschrieben.
------------------
Klaus

www.al-ko.com | mein Gästebuch | privat... | Nasenheim    

[Diese Nachricht wurde von KMassler am 29. Mai. 2009 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP