🚀 go-pugleaf

On Wednesday, July 9, 2008 3:00:07 AM UTC+5:30, (unknown) wrote:
> Figured it out:
> Following code worked perfectly for me for OCRing the first two pages of the PDF (for my purposes I only want the first two pages).
> 
> Send keytstroke combinations to acrobat to manipulate OCR Dialog Box. Finish by sending TAB keystrokes to move to OK button and sending ENTER keystroke to start OCR Text Recognition.
> 
> Dim Acroapp As CAcroApp
> Set Acroapp = CreateObject("AcroExch.App")
> Acroapp.Show
> Dim AVDOC As CAcroAVDoc
> Set AVDOC = CreateObject("AcroExch.AVDoc")
> dd = AVDOC.Open(Path, TempName)
> Dim PDDoc As CAcroPDDoc
> Set PDDoc = CreateObject("AcroExch.PDDoc")
> Set PDDoc = AVDOC.GetPDDoc
> '''''' SEND KEYSTROKES TO ACROBAT TO MANIPULATE OCR DIALOG BOX
> SendKeys ("{DOWN}")
> SendKeys ("{DOWN}")
> SendKeys ("{DOWN}")
> SendKeys ("{DOWN}")
> SendKeys ("{DOWN}")
> SendKeys ("{DOWN}")
> SendKeys ("{DOWN}")
> SendKeys ("{DOWN}")
> SendKeys ("{DOWN}")
> SendKeys ("{DOWN}")
> SendKeys ("{DOWN}")
> SendKeys ("2")
> SendKeys ("{TAB}")
> SendKeys ("{TAB}")
> SendKeys ("{TAB}")
> SendKeys ("{TAB}")
> SendKeys ("{TAB}")
> SendKeys ("{ENTER}")
> Acroapp.MenuItemExecute ("Cpt:CapturePages")
> 
> Let me know what you guys think...
> 
> Also, can you elaborate on the "Acrobat Capture programming interface" Bernd?

Hi,
how to send the keystroks to acrobat.. is there any code for that..