PDFからWindowsクリップボードにすべてのテキストをコピー

Question

私はVBA（MS Office 2010）で作業しており、定期的にOutlookで受信するPDF添付ファイルからキーワードを抽出したいと考えています。

私はPDFをWord文書として保存し、これらからテキストを抽出する予定でしたが、明らかにAcrobat X Standardを使用しているので、これをプログラムで行うことはできません。

これで、Acrobatのライブラリメソッドを使用して、PDFドキュメントのすべてのテキストをWindowsのクリップボードにコピーする方法を探しています。私は次にWordに貼り付けます（このコピー/ペーストは手動で行うとうまくいきます - テキストの破損はありません）。

Acrobatでの作業経験は非常に限られていますが、Acrobat SDKリソースなどを検討していますが、難しいことが分かります。

VBAのAcrobat Libraryメソッドを使用して、PDFドキュメントのすべてのテキストを選択してWindowsのクリップボードにコピーするにはどうすればよいですか？

Answer 1

参考として、以下のコードを使用して解決しました。これは、Adobe X規格に取り組んでいるなど、クリップボードに入れ、

を

これはすぐにテキストファイルにPDFファイルを隠れ家、そこからキーワードを選択することができ、文字列に読み込みます。

コードはhttp://forum.chandoo.org/threads/vba-to-convert-pdf-to-txt.14245/

Dim AcroXApp As Acrobat.AcroApp 
Dim AcroXAVDoc As Acrobat.AcroAVDoc 
Dim AcroXPDDoc As Acrobat.AcroPDDoc 
Dim Filename As String 
Dim jsObj As Object 
Dim NewFileName As String 

Filename = "C:\Documents and Settings\xxx\Desktop\file01.pdf" 
NewFileName = "U:\file.txt" 

Set AcroXApp = CreateObject("AcroExch.App") 
'AcroXApp.Show 

Set AcroXAVDoc = CreateObject("AcroExch.AVDoc") 
AcroXAVDoc.Open Filename, "Acrobat" 
AcroXApp.Hide 'my additon - needed? 

Set AcroXPDDoc = AcroXAVDoc.GetPDDoc 

Set jsObj = AcroXPDDoc.GetJSObject 

jsObj.SaveAs NewFileName, "com.adobe.acrobat.plain-text" 

AcroXAVDoc.Close False 
AcroXApp.Hide 
AcroXApp.Exit 

End Sub