dixiecricket
New Member
- Joined
- Jun 15, 2015
- Messages
- 9
I am trying to create a Word document from a PDF and am receiving an error - has anyone successfully used code similar to below?
(All items DIM as objects)
Set aApp = CreateObject("AcroExch.App")
Set av_doc = CreateObject("AcroExch.AVDoc")
Set pdf_doc = CreateObject("AcroExch.PDDoc")
If av_doc.Open(sfile, vbNull) = True Then
Set pdf_doc = av_doc.GetPDDoc
Set jso_obj = pdf_doc.GetJSObject
jso_obj.SaveAs dfile, "com.adobe.acrobat." & ext'----------ERRORING OUT ON THIS LINE
End If
av_doc.Close False
aApp.Exit
Set aApp = Nothing
Set av_doc = Nothing
(All items DIM as objects)
Set aApp = CreateObject("AcroExch.App")
Set av_doc = CreateObject("AcroExch.AVDoc")
Set pdf_doc = CreateObject("AcroExch.PDDoc")
If av_doc.Open(sfile, vbNull) = True Then
Set pdf_doc = av_doc.GetPDDoc
Set jso_obj = pdf_doc.GetJSObject
jso_obj.SaveAs dfile, "com.adobe.acrobat." & ext'----------ERRORING OUT ON THIS LINE
End If
av_doc.Close False
aApp.Exit
Set aApp = Nothing
Set av_doc = Nothing