Skip to main content
Participant
April 13, 2023
質問

pdfをテキストで保存でエラー

  • April 13, 2023
  • 返信数 1.
  • 2314 ビュー

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
よろしくお願いします

    このトピックへの返信は締め切られました。

    返信数 1

    Quick Timer
    Inspiring
    April 13, 2023

     

     

    this.saveAs({cPath:strSavePath, bPromptToOverwrite: true,cConvID:'com.adobe.acrobat.plain-text'',bCopy:false});

     

     

     

    とか?試してみた?
    https://opensource.adobe.com/dc-acrobat-sdk-docs/library/jsapiref/doc.html?highlight=saveas#saveas
    参考まで

    Participant
    April 14, 2023

    ご教示ありがとうございます

     

    やってみましたが、サポートされていないとなってしまいます
    根本的に何か足りないのかもしれないので
    他の方法を模索しながら
    振り出しに戻ってやってみます

    また詰まりましたら、戻ってきます

    よろしくお願いします

    Participant
    May 11, 2023

    その後の当該事象についてはいかに進捗いたしましたでしょうか。

    実は私も2023/01から同様の事象が出ていて解決できておりません。

    おそらく、Adobeのライブラリになにか更新があったのか、それともOfficeのほうなのか、Javascriptなのか、のようにいくつかの方向から分析していますが、解決にいたらず、です。
    なにか進捗があればご教示をいただきたいです。