Skip to main content
Participant
April 13, 2023
Question

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

    This topic is closed to new replies. Start a new post to keep the conversation going.

    4 replies

    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
    参考まで

    Translate
    Participant
    April 14, 2023

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

     

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

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

    よろしくお願いします

    Translate
    Participant
    May 11, 2023

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

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

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

    Translate