Sub OpenPDF ()
Const DOC_FOLDER As String = "E:"



Dim strFormName As String
Dim blnNeedToClose As Boolean

Dim Acroapp As CAcroApp
Dim avCodeFile As CAcroAVDoc
Dim avFormCapture As CAcroAVDoc
Dim pdCodeFile As CAcroPDDoc
Dim pdFormCapture As CAcroPDDoc
Dim lngPage As Long
Dim AVPage As CAcroAVPageView
Dim PDPage As CAcroPDPage

'Start Acrobat in the background
Set Acroapp = CreateObject("AcroExch.App")

'Uncomment the following line if you want to watch the program run
Acroapp.Show

Set avCodeFile = CreateObject("AcroExch.AVDoc") 'This is the code file
Set avFormCapture = CreateObject("AcroExch.AVDoc") 'This will be each jpg in turn

'Open the already created code file
avCodeFile.Open DOC_FOLDER & "\test1.pdf", "Code File"
Set pdCodeFile = avCodeFile.GetPDDoc

'close the doc file now with form captures


'Exit Acrobat
'Acroapp.Exit

End sub