I'm trying to use the following VB function to transform a pdf
document to a tiff one:
Private Sub savePDFtoTIF(By Val fullPathPDF As String, ByVal
fullPathTIF As String)
Dim PDFApp As Acrobat.AcroApp
Dim PDDoc As Acrobat.CAcroPD Doc
Dim AVDoc As Acrobat.CAcroAV Doc
Dim JSObj As Object
' Create Acrobat Application object
PDFApp = CreateObject("A croExch.App")
' Create Acrobat Document object
PDDoc = CreateObject("A croExch.PDDoc")
' Open PDF file
PDDoc.Open(full PathPDF)
' Create AV doc from PDDoc object
AVDoc = PDDoc.OpenAVDoc ("TempPDF")
' Hide Acrobat application so everything is done in silent
mode
PDFApp.Hide()
' Create Javascript bridge object
JSObj = PDDoc.GetJSObje ct()
' Attempt to save PDF to TIF image file.
' SaveAs method syntax .SaveAs( strFilePath, cConvID )
' For TIFF output the correct cConvid is
"com.adobe.acro bat.tiff"
' cCovid MUST BE ALL LOWERCASE.
JSObj.SaveAs(fu llPathTIF, "com.adobe.acro bat.tiff")
PDDoc.Close()
PDFApp.CloseAll Docs()
' Clean up
System.Runtime. InteropServices .Marshal.Releas eComObject(JSOb j)
JSObj = Nothing
System.Runtime. InteropServices .Marshal.Releas eComObject(PDFA pp)
PDFApp = Nothing
System.Runtime. InteropServices .Marshal.Releas eComObject(PDDo c)
PDDoc = Nothing
System.Runtime. InteropServices .Marshal.Releas eComObject(AVDo c)
AVDoc = Nothing
End Sub
It gives an exception at line PDFApp = CreateObject("A croExch.App")
=Cannot create ActiveX component
I have acrobat 8. Do I need to install SDK or some other component?
document to a tiff one:
Private Sub savePDFtoTIF(By Val fullPathPDF As String, ByVal
fullPathTIF As String)
Dim PDFApp As Acrobat.AcroApp
Dim PDDoc As Acrobat.CAcroPD Doc
Dim AVDoc As Acrobat.CAcroAV Doc
Dim JSObj As Object
' Create Acrobat Application object
PDFApp = CreateObject("A croExch.App")
' Create Acrobat Document object
PDDoc = CreateObject("A croExch.PDDoc")
' Open PDF file
PDDoc.Open(full PathPDF)
' Create AV doc from PDDoc object
AVDoc = PDDoc.OpenAVDoc ("TempPDF")
' Hide Acrobat application so everything is done in silent
mode
PDFApp.Hide()
' Create Javascript bridge object
JSObj = PDDoc.GetJSObje ct()
' Attempt to save PDF to TIF image file.
' SaveAs method syntax .SaveAs( strFilePath, cConvID )
' For TIFF output the correct cConvid is
"com.adobe.acro bat.tiff"
' cCovid MUST BE ALL LOWERCASE.
JSObj.SaveAs(fu llPathTIF, "com.adobe.acro bat.tiff")
PDDoc.Close()
PDFApp.CloseAll Docs()
' Clean up
System.Runtime. InteropServices .Marshal.Releas eComObject(JSOb j)
JSObj = Nothing
System.Runtime. InteropServices .Marshal.Releas eComObject(PDFA pp)
PDFApp = Nothing
System.Runtime. InteropServices .Marshal.Releas eComObject(PDDo c)
PDDoc = Nothing
System.Runtime. InteropServices .Marshal.Releas eComObject(AVDo c)
AVDoc = Nothing
End Sub
It gives an exception at line PDFApp = CreateObject("A croExch.App")
=Cannot create ActiveX component
I have acrobat 8. Do I need to install SDK or some other component?
Comment