ユーザーがPDFファイルから情報を抽出するのを助けるためにExcel VBA

Web上で見つけるコードのほとんどは、他のインストールされているApplicationまたはサードパーティのツールに基づいています.さらに、物事が時間の経過とともに変化し、あなたがコードを試すとき、あなたはそれのほとんどがもう動作しないことがわかります.
とにかく、ネイティブのPDFを開き、テキストを抽出することしかできません.PDFが保護されている場合は、機能しません.
したがって、何かを試す簡単な方法があります.PDFを単語で開く！
2013 Word以降はネイティブのPDFを開き、PDFをテキストに変換することができます.
アンドレアス.

こんにちはRajesh、これはあなたがおそらくあなたのニーズに合うように調整することができるサブです.これで、PDFファイルを開き、Adobeライブラリを使ってその内容を抽出することができます.コードは、アドビがすでにPCにINをインストールしていることに依存しており、次のようにインストールされているDLLを使用します.
その一部
関数getTextFrompDF(文字列としてbyval strfilename)文字列として
新しいacroavdocとして薄暗いobjavdoc
新しいAcropdDocとしての薄暗いobjpddoc
AcropdPageとして薄暗いobjpage
AcropdTextSelectとして薄暗いobjselection
acrohiliteListとして薄暗いヴォイライト
薄型PageNumの長い
Dim Strtext
strtext= "" "" "" if(objavdoc.open(strfilename、 "")
set objpdoc= objavdoc.getpdoc
PageNum= 0からobjpdoc.getNumpages()-1
set objpage= objpdoc.acquirepage(PageNum)
objhighlight= New Acrohilitelist
objhighlight.add 0,10000 'ページ上のすべてのテキストを取得していない場合はこれを調整します.
set objselection= objpage.CreatePageHilite(objHighlight)
objSelectionがその場合は何もない場合は
tcount= 0からobjselection.getNumText-1
strtext= strtext&objselection.getText(tcount)
次のTCOUNT

の場合は終了 次のPagenum
objavdoc.close 1

の場合は終了 getTextFrompDF= strtext
終了機能
ソース:
stackoverflow.com/questions/36270247...