Acrobat DLL异常（将pdf转换为tif） [英] Acrobat DLL Exception (Transforming pdf to tif)
问题描述
我正在尝试使用以下VB函数将pdf
文档转换为tiff文件：
http://forums.microsoft.com/msdn/sho...&tf=0&pageid=1
Private Sub savePDFtoTIF（ByVal fullPathPDF As String， ByVal
fullPathTIF As String）
Dim PDFApp As Acrobat.AcroApp
Dim PDDoc As Acrobat.CAcroPDDoc
Dim AVDoc As Acrobat.CAcroAVDoc
Dim JSObj As Object
''创建Acrobat应用程序对象
PDFApp = CreateObject（" AcroExch .App"）
''创建Acrobat文档对象
PDDoc = CreateObject（" AcroExch.PDDoc"）
''打开PDF文件
PDDoc.Open（fullPathPDF）
''从PDDoc对象创建AV文档
AV Doc = PDDoc.OpenAVDoc（TempPDF）
''隐藏Acrobat应用程序，所以一切都在无声中完成
模式
PDFApp.Hide（）
''创建Javascript桥对象
JSObj = PDDoc.GetJSObject（）
''尝试将PDF保存到TIF图像文件。
''SaveAs方法语法.SaveAs（strFilePath，cConvID）
''对于TIFF输出正确的cConvid是
" com.adobe.acrobat.tiff"
''cCovid必须全部小一些。
JSObj.SaveAs（fullPathTIF，" com .adobe.acrobat.tiff"）
PDDoc.Close（）
PDFApp.CloseAllDocs（）
''清理
System.Runtime.InteropServices.Marshal.ReleaseComO bject（JSObj）
JSObj = Nothing
System.Runtime.InteropServices。 Marshal.ReleaseComO bject（PDFApp）
PDFApp = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComO bj等等（PDDoc）
PDDoc =没什么
System.Runtime.InteropServices.Marshal.ReleaseComO bject（AVDoc）
AVDoc =什么都没有
结束子
它在行PDFApp = CreateObject（" AcroExch.App"）上给出例外
=无法创建ActiveX组件
我有acrobat 8.我是否需要安装SDK或其他组件？
您好，
您需要使用regsvr32.exe实用程序注册ActiveX组件
问候，
Joy
" Mauro"写道：
我正在尝试使用以下VB函数将pdf
文档转换为tiff文件：
http://forums.microsoft.com/msdn/sho...&tf=0&pageid=1
Private Sub savePDFtoTIF（ByVal fullPathPDF As String，ByVal
fullPathTIF As String）
Dim PDFApp As Acrobat.AcroApp
Dim PDDoc As Acrobat.CAcroPDDoc
Dim AVDoc As Acrobat.CAcroAVDoc
Dim JSObj As Object
''创建Acrobat Application对象
PDFApp = CreateObject（" AcroExch.App"）
''创建Acrobat文档对象
PDDoc = CreateObject（" ; AcroExch.PDDoc"）
'打开PDF文件
PDDoc.Open（fullPathPDF）
''从PDDoc对象创建AV文档
AVDoc = PDDoc.OpenAVDoc （TempPDF）
''隐藏Acrobat应用程序，以便一切都以无声方式完成
模式
PDFApp.Hide（ ）
''创建Javascript桥对象
JSObj = PDDoc.GetJSObject（）
''尝试将PDF保存到TIF图像文件。
''SaveAs方法语法.SaveAs（strFilePath，cConvID）
''对于TIFF输出正确的cConvid是
" com.adobe.acrobat.tiff"
''cCovid必须全部小一些。
JSObj.SaveAs（fullPathTIF，" com.adobe.acrobat。 tiff"）
PDDoc.Close（）
PDFApp.CloseAllDocs（）
''清理
System.Runtime.InteropServ ices.Marshal.ReleaseComO bject（JSObj）
JSObj = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComO bject（PDFApp）
PDFApp =没什么
System.Runtime.InteropServices.Marshal.ReleaseComO bject（PDDoc）
PDDoc = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComO bject（AVDoc）
AVDoc = Nothing
End Sub
它在行PDFApp = CreateObject（" AcroExch.App"）给出异常
=无法创建ActiveX组件
我有acrobat 8我是否需要安装SDK或其他组件？
如何找到要注册的文件的路径？
我现在没有SDK的Adobe Reader 8.1.2。
谢谢。
On 27 Mag，11：56，Joy< J ... @ discussion.microsoft.comwrote：
Hi，
您需要使用regsvr32.exe实用程序注册ActiveX组件
问候，
Joy
" Mauro"写道：
我正在尝试使用以下VB函数将pdf
文档转换为tiff文件：
http://forums.microsoft.com/ msdn / sho ... 665127& siteid = ...
Private Sub savePDFtoTIF（ByVal fullPathPDF As String，ByVal
fullPathTIF As String）
Dim PDFApp As Acrobat.AcroApp
Dim PDDoc As Acrobat.CAcroPDDoc
Dim AVDoc As Acrobat。 CAcroAVDoc
Dim JSObj As Object
''创建Acrobat应用程序对象
PDFApp = CreateObject （AcroExch.App）
''创建Acrobat文档对象
PDDoc = CreateObject（" AcroExch.PDDoc"）
''打开PDF文件
PDDoc.Open（fullPathPDF）
''从PDDoc对象创建AV文档
AVDoc = PDDoc.OpenAVDoc（" TempPDF"）
''隐藏Acrobat应用程序，以便一切都在无声中完成
模式
PDFApp.Hide（）
''创建Javascript桥对象
JSObj = PDDoc.GetJSObject（）
< blockquote class =post_quotes>
''尝试将PDF保存到TIF图像文件。
''SaveAs方法语法.SaveAs（strFilePath，cConvID）
''对于TIFF输出，正确的cConvid是
" com.ado be.acrobat.tiff"
''cCovid必须全部小一些。
JSObj.SaveAs（fullPathTIF，com.adobe.acrobat.tiff）
PDDoc.Close（）
PDFApp.CloseAllDocs（）
''清理
System.Runtime.InteropServices.Marshal.ReleaseComO bject（JSObj）
JSObj = Nothing
< blockquote class =post_quotes>
System.Runtime.InteropServices.Marshal.ReleaseComO bject（PDFApp）
PDFApp = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComO bject（PDDoc）
PDDoc = Nothing
System .Runtime.InteropServices.Marshal.ReleaseComO bject（AVDoc）
AVDoc =否thing
End Sub
它在行PDFApp给出例外= CreateObject（" AcroExch.App"）
=无法创建ActiveX组件
我有acrobat 8.我是否需要安装SDK还是其他一些组件？
您好，
在您的本地系统上搜索。
问候，
欢乐
" Mauro"写道：
如何找到要注册的文件的路径？
我现在没有SDK的Adobe Reader 8.1.2。
谢谢。
On 27 Mag，11：56，Joy< J ... @ discussion.microsoft.comwrote：
您好，
您需要使用regsvr32.exe实用程序注册ActiveX组件
问候语，
欢乐
" Mauro"写道：
我正在尝试使用以下VB函数将pdf
文档转换为tiff文件：
> http：// forums.microsoft.com/msdn/sho...665127&siteid= ...
Private Sub savePDFtoTIF（ByVal fullPathPDF As String，ByVal
fullPathTIF As String）
Dim PDFApp As Acrobat.AcroApp
Dim PDDoc As Acrobat.CAcroPDDoc
Dim AVDoc As Acrobat.CAcroAVDoc
Dim JSObj As Object
''创建Acrobat Application对象
PDFApp = CreateObject（" AcroExch.App"）
''创建Acrobat文档对象
PDDoc = CreateObject（" AcroExch.PDDoc"）
''打开PDF文件
PDDoc.Open（fullPathPDF）
''从PDDoc对象创建AV文档
AVDoc = PDDoc.OpenAVDoc（" TempPDF"）
''隐藏Acrobat应用程序，以便一切都在无声中完成
模式
PDFApp.Hide（）
''创建Javascript桥对象
JSObj = PDDoc.GetJSObject（）
''尝试将PDF保存到TIF图像文件。
''SaveAs方法语法.SaveAs（strFilePath，cConvID）
''对于TIFF输出正确的cConvid是
&qu ot; com.adobe.acrobat.tiff
'cCovid必须全部小一些。
JSObj.SaveAs（fullPathTIF，com.adobe.acrobat.tiff ）
PDDoc.Close（）
PDFApp.CloseAllDocs（）
''清理
System.Runtime.InteropServices.Marshal.ReleaseComO对象（JSObj）
JSObj =无
System.Runtime.InteropServices.Marshal.ReleaseComO bject（PDFApp）
PDFApp = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComO bject（PDDoc）
PDDoc = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComO bject（AVDoc）
AVDoc = Nothing
End Sub
它给出了例外情况line PDFApp = CreateObject（" AcroExch.App"）
=无法创建ActiveX组件
我有acrobat 8。我是否需要安装SDK或其他组件？
I''m trying to use the following VB function to transform a pdf
document to a tiff one:
http://forums.microsoft.com/msdn/sho...&tf=0&pageid=1
Private Sub savePDFtoTIF(ByVal fullPathPDF As String, ByVal
fullPathTIF As String)
Dim PDFApp As Acrobat.AcroApp
Dim PDDoc As Acrobat.CAcroPDDoc
Dim AVDoc As Acrobat.CAcroAVDoc
Dim JSObj As Object
'' Create Acrobat Application object
PDFApp = CreateObject("AcroExch.App")
'' Create Acrobat Document object
PDDoc = CreateObject("AcroExch.PDDoc")
'' Open PDF file
PDDoc.Open(fullPathPDF)
'' 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.GetJSObject()
'' Attempt to save PDF to TIF image file.
'' SaveAs method syntax .SaveAs( strFilePath, cConvID )
'' For TIFF output the correct cConvid is
"com.adobe.acrobat.tiff"
'' cCovid MUST BE ALL LOWERCASE.
JSObj.SaveAs(fullPathTIF, "com.adobe.acrobat.tiff")
PDDoc.Close()
PDFApp.CloseAllDocs()
'' Clean up
System.Runtime.InteropServices.Marshal.ReleaseComO bject(JSObj)
JSObj = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComO bject(PDFApp)
PDFApp = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComO bject(PDDoc)
PDDoc = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComO bject(AVDoc)
AVDoc = Nothing
End Sub
It gives an exception at line PDFApp = CreateObject("AcroExch.App")
=Cannot create ActiveX component
I have acrobat 8. Do I need to install SDK or some other component?
Hi,
You need to register the ActiveX component using the regsvr32.exe utility
regards,
Joy
"Mauro" wrote:
I''m trying to use the following VB function to transform a pdf
document to a tiff one:
http://forums.microsoft.com/msdn/sho...&tf=0&pageid=1
Private Sub savePDFtoTIF(ByVal fullPathPDF As String, ByVal
fullPathTIF As String)
Dim PDFApp As Acrobat.AcroApp
Dim PDDoc As Acrobat.CAcroPDDoc
Dim AVDoc As Acrobat.CAcroAVDoc
Dim JSObj As Object
'' Create Acrobat Application object
PDFApp = CreateObject("AcroExch.App")
'' Create Acrobat Document object
PDDoc = CreateObject("AcroExch.PDDoc")
'' Open PDF file
PDDoc.Open(fullPathPDF)
'' 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.GetJSObject()
'' Attempt to save PDF to TIF image file.
'' SaveAs method syntax .SaveAs( strFilePath, cConvID )
'' For TIFF output the correct cConvid is
"com.adobe.acrobat.tiff"
'' cCovid MUST BE ALL LOWERCASE.
JSObj.SaveAs(fullPathTIF, "com.adobe.acrobat.tiff")
PDDoc.Close()
PDFApp.CloseAllDocs()
'' Clean up
System.Runtime.InteropServices.Marshal.ReleaseComO bject(JSObj)
JSObj = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComO bject(PDFApp)
PDFApp = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComO bject(PDDoc)
PDDoc = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComO bject(AVDoc)
AVDoc = Nothing
End Sub
It gives an exception at line PDFApp = CreateObject("AcroExch.App")
=Cannot create ActiveX component
I have acrobat 8. Do I need to install SDK or some other component?
How can I find the path of the file to register?
I have Adobe Reader 8.1.2 without SDK now.
Thank you.
On 27 Mag, 11:56, Joy <J...@discussions.microsoft.comwrote:Hi,
You need to register the ActiveX component using the regsvr32.exe utility
regards,
Joy
"Mauro" wrote:I''m trying to use the following VB function to transform a pdf
document to a tiff one:
http://forums.microsoft.com/msdn/sho...665127&siteid=...
Private Sub savePDFtoTIF(ByVal fullPathPDF As String, ByVal
fullPathTIF As String)
Dim PDFApp As Acrobat.AcroApp
Dim PDDoc As Acrobat.CAcroPDDoc
Dim AVDoc As Acrobat.CAcroAVDoc
Dim JSObj As Object
'' Create Acrobat Application object
PDFApp = CreateObject("AcroExch.App")
'' Create Acrobat Document object
PDDoc = CreateObject("AcroExch.PDDoc")
'' Open PDF file
PDDoc.Open(fullPathPDF)
'' 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.GetJSObject()
'' Attempt to save PDF to TIF image file.
'' SaveAs method syntax .SaveAs( strFilePath, cConvID )
'' For TIFF output the correct cConvid is
"com.adobe.acrobat.tiff"
'' cCovid MUST BE ALL LOWERCASE.
JSObj.SaveAs(fullPathTIF, "com.adobe.acrobat.tiff")
PDDoc.Close()
PDFApp.CloseAllDocs()
'' Clean up
System.Runtime.InteropServices.Marshal.ReleaseComO bject(JSObj)
JSObj = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComO bject(PDFApp)
PDFApp = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComO bject(PDDoc)
PDDoc = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComO bject(AVDoc)
AVDoc = Nothing
End Sub
It gives an exception at line PDFApp = CreateObject("AcroExch.App")
=Cannot create ActiveX component
I have acrobat 8. Do I need to install SDK or some other component?
Hi,
Do a search on your local system.
regards,
Joy
"Mauro" wrote:
How can I find the path of the file to register?
I have Adobe Reader 8.1.2 without SDK now.
Thank you.
On 27 Mag, 11:56, Joy <J...@discussions.microsoft.comwrote:Hi,
You need to register the ActiveX component using the regsvr32.exe utility
regards,
Joy
"Mauro" wrote:I''m trying to use the following VB function to transform a pdf
document to a tiff one:
>http://forums.microsoft.com/msdn/sho...665127&siteid=...
Private Sub savePDFtoTIF(ByVal fullPathPDF As String, ByVal
fullPathTIF As String)
Dim PDFApp As Acrobat.AcroApp
Dim PDDoc As Acrobat.CAcroPDDoc
Dim AVDoc As Acrobat.CAcroAVDoc
Dim JSObj As Object
'' Create Acrobat Application object
PDFApp = CreateObject("AcroExch.App")
'' Create Acrobat Document object
PDDoc = CreateObject("AcroExch.PDDoc")
'' Open PDF file
PDDoc.Open(fullPathPDF)
'' 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.GetJSObject()
'' Attempt to save PDF to TIF image file.
'' SaveAs method syntax .SaveAs( strFilePath, cConvID )
'' For TIFF output the correct cConvid is
"com.adobe.acrobat.tiff"
'' cCovid MUST BE ALL LOWERCASE.
JSObj.SaveAs(fullPathTIF, "com.adobe.acrobat.tiff")
PDDoc.Close()
PDFApp.CloseAllDocs()
'' Clean up
System.Runtime.InteropServices.Marshal.ReleaseComO bject(JSObj)
JSObj = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComO bject(PDFApp)
PDFApp = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComO bject(PDDoc)
PDDoc = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComO bject(AVDoc)
AVDoc = Nothing
End Sub
It gives an exception at line PDFApp = CreateObject("AcroExch.App")
=Cannot create ActiveX component
I have acrobat 8. Do I need to install SDK or some other component?
这篇关于Acrobat DLL异常（将pdf转换为tif）的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
