
Sub Aprifile() Dim X As Long Dim strPath, strParam As String On Error Resume Next strPath = "G:EngineTEAM EGSPPROJECTGSP789GSP789.PDF" strParam = " /A " & Chr(34) & "page=3" & Chr(34) & strPath X = ShellExecute(0, "Open", "AcroRd32.exe", strParam, "", 1) |
Sub openpdf() strPath = "G:EngineTEAM EGSPPROJECTGSP789GSP789.PDF" ThisWorkbook.FollowHyperlink strPath End Sub |
