pdfをテキストで保存でエラー
Dim objAcrobatApp As New Acrobat.acroApp
Dim objAcrobatAVDoc As New Acrobat.acroAVDoc
Dim objAcrobatPDDoc As Acrobat.acroPDDoc
Dim AcrobatId As Long
Dim objJs As Object
'Acrobatアプリを起動
AcrobatId = objAcrobatApp.Show
'PDFファイルを開く
AcrobatId = objAcrobatAVDoc.Open("C:\Users\jack\Desktop\aaa\1087.pdf", "")
'PDDocオブジェクトを取得
Set objAcrobatPDDoc = objAcrobatAVDoc.GetPDDoc()
'Acrobat JavaScriptオブジェクトを作成
Set objJs = objAcrobatPDDoc.GetJSObject
'PDFをテキストで保存
objJs.SaveAs "C:\Users\jack\Desktop\aaa\1087.txt","com.adobe.acrobat.plain-text"
ここで、ファイルが開けませんのエラーになります
accessのモジュールコードです
参照設定
・Adobe Acrobat 10.0 Type Library
・Acrobat Access 3.0 Type Library
・Microsoft Acripting Runtime
その他
・Windows10
・Acrobat Pro
よろしくお願いします
