---

Hallo Forum,

wir könnte ich mit Hilfe eines Parameters ein pdf-Dokument öffen?

Mein Ziel wäre, dass ich bei der Auswahl von komplexen Bauteilen aus dem Katalog nach Wusch die Anleitung per Parameter öffnen könnte.

Geht das?

Den Ordner an sich kann ich bereits öffnen, aber das pdf direkt zu starten schaffe ich nicht 

------------------
Habe D`Ehre

Felsen

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

---

Servus

Das könnte zB
- über den Pfad zur PDF-Anwendung gehen (siehe zB hier oder hier)
- oder über die Windows-API (zB hier und hier)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

SUPER
jetzt läuftŽs.
10 U

------------------
Habe D`Ehre

Felsen

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

---

Hallo Forum,

wie kann ich dieses *.catvba in ein CATSkript umwandeln?

------------------------
Sub CATMain()

  Dim pdfName As String
  Dim pdf As Variant
  Dim Pfad As String
  Pfad = "D:\Dokumente\"
  pdfName = Pfad & "Anleitung.pdf"

  If Dir(pdfName) <> "" Then
    pdf = Shell("C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe """ & pdfName & """", 3)
  Else
    MsgBox "Datei: " & pdfName & vbLf & "konnte nicht gefunden werden"
  End If
End Sub

------------------
Habe D`Ehre

Felsen

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

---

VBScript_oeffnen.jpg

..zur Ergänzung:
Möchte einen VB-Script (siehe Post vorher) mittels eines boolschen Parameters öffnen.

Mir fehlt nur der richtige Befehl in der Regel hierzu (siehe Anhang).
Müsste ja irgendetwas wie "run", "start", "open" etc. sein und habe da schon alles mögliche
probiert, aber nichts passendes gefunden (auch nicht im Forum).

------------------
Habe D`Ehre

Felsen

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

---

Servus

Schon mal wie hier am Beispiel mit dem Explorer probiert?
IMHO kannst du ein Makro nicht mit einer Regel ausführen das sollte über eine Reaction gehen (dort kannst du direkt VB-Doce eingeben)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo Bernd,

werde ich gleich mal ausprobieren.

Macro über Regel öffnen habe ich geschafft:

if boolscherWert == "true"
LaunchMacroFromFile("D:\Pfad\Macro.catvba")

Mein Ziel wäre es eben nicht auf ein externes Macro zugreifen zu müssen, sondern alles innerhalb des Parts zu steuern.

------------------
Habe D`Ehre

Felsen

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

---

Hi Felsen,

-erzeuge dir das Makro über "Macro with Arguments" in deinem Part.
-Reaction erzeugen "ChangeValue" ==> boolscherWert.
-VB-Action editieren und Makro starten. "`Relations\VB Scripts.1\StartPDF` .Run()"

StartPDF steht für den Namen des eingebetteten Makros.

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

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

---

Fehlermeldung_Macro.jpg

Hallo Uwe,

das warŽs.
Nach dem *.Run fehlten noch die Klammern ->"()".
Jetzt läuft es (bis zu meinem SkripfFehler  )

Der Skript sieht momentan so aus:

    Dim WshShell As Object
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.Run """C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe""L:\...Pfad...\Anleitung.pdf"
    Set WshShell = Nothing
End Sub

Leider kommt dann der Fehler (siehe Anhang):
"Beim Öffnen dieses Dokuments ist ein Fehler aufgetreten. Zugriff verweigert."

------------------
Habe D`Ehre

Felsen

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

---

Hi Felsen,

die Klammern waren doch da!?

Bei mir läuft dein Code.
Vielleicht hast du ein Rechteproblem in Windows.

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

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

---

Hi Uwe,

ich meinte damit, dass bei mir die Klammern fehlten.
Die Lösung kam von Dir.
Dafür gibtŽs auch UŽs. 

Der Rest könnte tatsächlich ein Rechteproblem sein.

Merci Dir für die Hilfe!

------------------
Habe D`Ehre

Felsen

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

---

Hi Felsen,

Zitat:

---

ich meinte damit, dass bei mir die Klammern fehlten.

---

Jetzt verstehe ich das dann auch.  

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

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

---

Leider schaffe ich es nicht, dass das Programm die Datei öffnet.
Je nach Konstellation der Anfürhungszeichen öffnet er entweder den Acrobat-Reader oder nur das Verzeichnis.
Da fehlt wohl "nur" ein & oder Execute oder was weiß ich???? 

WshShell.Run " ""C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"" ""L:\01_CAD-KOLLER\05_Power Copies\31_Sankyo-Bauteile\VKL-Leiste\Anleitung VKL-Leiste einfuegen.pdf"" "

------------------
Habe D`Ehre

Felsen

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

---

Genau so hatt es bei mir funktioniert.

Code:

---

Dim WshShell As Object
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.Run """C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe""D:\Daten\CATIA_VBScripts\PHX\Doku\Material.pdf"
    Set WshShell = Nothing
End Sub

---

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

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