Access2000のVB6.5を使って、PDFファイルを読み込み先頭に数ページをJpegファイルに変換し、アクセスの帳票にその画像を貼りたいと思っています。
Acrobatのバージョンは7です。
以下のコーディングでは「NotAllowedError: セキュリティ設定により、このプロパティまたはメソッドのアクセスは許可されていません。」のエラーが出てしまいます。
Private Sub コマンド0_Click()
Dim gApp As Acrobat.AcroApp
Dim avDoc As Acrobat.AcroAVDoc
Dim pdDoc As Acrobat.AcroPDDoc
Dim jso As Object
Set gApp = CreateObject("AcroExch.App")
Set avDoc = CreateObject("AcroExch.AVDOC")
Set pdDoc = CreateObject("AcroExch.PDDOC")
lRet = gApp.Show
lRet = avDoc.Open("c:¥test.pdf", "")
Set pdDoc = avDoc.GetPDDoc
Set jso = pdDoc.GetJSObject
lRet = jso.SaveAs("/c/test.jpg", "com.adobe.acrobat.jpeg")
End Sub
「Acrobat JavaScript Scripting Reference」を見るとSaveAsの方法はバッチ、コンソール、またはメニューイベントしか実行しませんのようなことが書いてありました。
アメリカのサイトを見てみると↓できたようなことも書いてあります。
http://www.adobeforums.com/webx?14@@.3bc3651f/6
どのようにすれば、プログラムでPDFファイルからJpegファイルに変換できるかご存じの方教えてください。壁にぶち当たっています。
よろしくお願いいたします。
Acrobatのバージョンは7です。
以下のコーディングでは「NotAllowedError: セキュリティ設定により、このプロパティまたはメソッドのアクセスは許可されていません。」のエラーが出てしまいます。
Private Sub コマンド0_Click()
Dim gApp As Acrobat.AcroApp
Dim avDoc As Acrobat.AcroAVDoc
Dim pdDoc As Acrobat.AcroPDDoc
Dim jso As Object
Set gApp = CreateObject("AcroExch.App")
Set avDoc = CreateObject("AcroExch.AVDOC")
Set pdDoc = CreateObject("AcroExch.PDDOC")
lRet = gApp.Show
lRet = avDoc.Open("c:¥test.pdf", "")
Set pdDoc = avDoc.GetPDDoc
Set jso = pdDoc.GetJSObject
lRet = jso.SaveAs("/c/test.jpg", "com.adobe.acrobat.jpeg")
End Sub
「Acrobat JavaScript Scripting Reference」を見るとSaveAsの方法はバッチ、コンソール、またはメニューイベントしか実行しませんのようなことが書いてありました。
アメリカのサイトを見てみると↓できたようなことも書いてあります。
http://www.adobeforums.com/webx?14@@.3bc3651f/6
どのようにすれば、プログラムでPDFファイルからJpegファイルに変換できるかご存じの方教えてください。壁にぶち当たっています。
よろしくお願いいたします。