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