Damit würde es zum Beispiel gehen:
Sub CATMain()
Dim Dokument As String
Dokument = InputBox("Geben Sie das PDFDokument mit Pfad an ...", "PDF aus CATIA öffnen", "C:\")
Dim objIntExplorer As Object
Set objIntExplorer = CreateObject("InternetExplorer.Application")
objIntExplorer.Visible = True
objIntExplorer.Navigate Dokument
End Sub
------------------
Grüße aus dem Thurgau
Thomas
+++++++++++++++++++++++++++++++++
CATIA - eine Laune der Natur ...
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP