NOTE: this requires you have Adobe Acrobat Standard.
Public Function GetOpenPDF()
On Error GoTo Err_Handler 'This works but requires Adobe Acrobat Standard Dim AcroApp As AcroApp Set AcroApp = CreateObject("AcroExch.App") Const POSTSCRIPT_LEVEL = 2 Set AcroAVDoc = AcroApp.GetActiveDoc GetOpenPDF = AcroPDDoc.GetFileName Err_Handler: End Function |
VBA >