PDF öffnen

Sub pdfOffnen_1()
Dim strPdfDat As String, Seite As Long
Dim objWMI As Object, objProcessList As Object, objProcess As Object
Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set objProcessList = objWMI.ExecQuery("Select * from Win32_Process " & _
"WHERE Name LIKE 'AcroRd%'")
On Error Resume Next
For Each objProcess In objProcessList
Call objProcess.Terminate(0)
Next
Set objProcessList = Nothing
Set objWMI = Nothing
'Pfad zum Acrobat Reader (anpassen!)
Const strAcroRd As String = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\ _
AcroRd32.exe"
'pdf-Datei
strPdfDat = "H:\KEA\Test Makro PDF\Makro Test.pdf"
'Seite
Seite = 1
'Acrbat Reader aufrufen
Shell Chr(34) & strAcroRd & Chr(34) & " /A page=" & Seite & " " & Chr(34) & strPdfDat &  _
Chr(34), vbMaximizedFocus
End Sub