Sub Open_PDFDoc()
Dim wrdApp As New Word.Application
Dim doc As Word.Document
Dim myDisplay As Word.WdAlertLevel
Dim sFileNamePDF As String
sFileNamePDF = "L:\temp\Word\PDF\Test.pdf"
myDisplay = wrdApp.DisplayAlerts
wrdApp.DisplayAlerts = wdAlertsNone
Set doc = wrdApp.Documents.Open(FileName:=sFileNamePDF, ConfirmConversions:=False, ReadOnly:= _
False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
"", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
Format:=wdOpenFormatAuto, XMLTransform:="")
doc.Close False
wrdApp.DisplayAlerts = myDisplay
wrdApp.Quit
End Sub