Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Exit
Bob_realvilla
New Here
Bob_realvilla
New Here
Activity
‎Jun 04, 2019
08:15 AM
This worked! Public Function RecogText(strFilePath As String) '**************THIS WORKS******************** 'acroAppObj.MenuItemExecute ("Cpt:CapturePages") Dim ItWorks As Boolean Dim ctlCurrentControl As Control Dim AcroApp As AcroApp Dim PDDoc As AcroPDDoc Set AcroApp = CreateObject("AcroExch.App") Dim AVDoc As AcroAVDoc Set AVDoc = CreateObject("AcroExch.AVDoc") ItWorks = AVDoc.Open(strFilePath, TempName) AcroApp.Show Set PDDoc = CreateObject("AcroExch.PDDoc") Set PDDoc = AVDoc.GetPDDoc '****** SEND KEYSTROKES TO ACROBAT TO MANIPULATE OCR DIALOG BOX ****** '****** TABS take you to the 'ok' button and SendKeys sends 'ENTER' ****** SendKeys "{TAB 7}" DoEvents SendKeys "{ENTER}", True AcroApp.MenuItemExecute ("Cpt:CapturePages") PDDoc.Save 1, strFilePath Set AcroApp = Nothing End Function
... View more
‎May 30, 2019
08:38 AM
I tried using vba sendkeys and it actually worked for a while. I'm not sure what happened. I can get the text recognition dialog to pop up using the following: AcroApp.MenuItemExecute ("Cpt:CapturePages") But it won't execute from there even though it did before. I hate to turn this over to the user since it is so simple. Executing this would save her a step.
... View more
‎May 30, 2019
08:18 AM
Is there any way to click OK using vba or javascript on a Acrobat dialog box?
... View more
‎May 03, 2019
11:34 AM
I wish I could just get a list of menu items related to OCR.
... View more
‎May 03, 2019
08:07 AM
Is it possible in acrobat to call the Menu Item "Document->OCR Text Recognition->Recognize Text Using OCR..." through "Visual Basic" or any other language? Helpful Like Show 0 Likes (0) Reply Actions Translate 3. Re: How to Call the Acrobat plug-in through javascript gkaiseril Aug 12, 2008 7:50 AM (in response to (Prabudass)) Yes with the JavaScript "app" object "execMenuItem(cName)". There are a number of things that need to be done. See "Executing Acrobat menu items from JavaScript", http://www.acrobatusers.com/tutorials/2008/06/executing_menus_with_javacript/ , by Thom Parker for more information. To do this through the use of a plugin, you may need to write a application folder level JavaScript to call your menu item.
... View more
‎Apr 29, 2019
09:22 AM
It failed on: NewPDDoc.Create so I commented out Set NewPDDoc = nothing That seemed to work, until I looked at the files. Instead of one page, it was giving multiple pages incrementally (ie. building every loop, 1,2,3,4, etc.) That's why I inserted Set NewPDDoc = nothing in the first place. I will try closing the object.
... View more
‎Apr 29, 2019
08:39 AM
Now it opens the first page in the loop but fails on the following line in the second loop: Bookmarks = JSO.BookmarkRoot.Children
... View more
‎Apr 29, 2019
08:34 AM
All good suggestions. I'll take a look and get back with you.
... View more
‎Apr 29, 2019
08:32 AM
It looks like I haven't set it. It should be strPathFile . Let's see if that works. Thanks.
... View more
‎Apr 29, 2019
08:00 AM
The following is my code: Public Function SplitByBookmarks(strPathFile As String) 'THIS COULD BE THE BIG ONE!!! Dim AVDoc As Acrobat.AcroAVDoc Dim PDDoc As New Acrobat.AcroPDDoc Dim NewPDDoc As Acrobat.AcroPDDoc Dim AVPageView As Acrobat.AcroAVPageView Dim PDBookmark As AcroPDBookmark Dim strFile As String, strPath As String, x As Integer, i As Integer Dim JSO As Object, BookmarkRoot As Object, Bookmarks As Object Dim PageIndex As Long, PDFFilePath As String, BMArray(50) As String 'It gets the bookmarked page! 'Get PDF path and file name (this will eventually work like the bookmark selection below) 'Set PDF document variables Set AcroApp = CreateObject("AcroExch.App") Set AVDoc = CreateObject("AcroExch.AVDoc") Set PDDoc = CreateObject("AcroExch.PDDoc") Set NewPDDoc = CreateObject("AcroExch.PDDoc") Set PDBookmark = CreateObject("AcroExch.PDBookmark") AVDoc.Open strFile, vbNull Set AVPageView = AVDoc.GetAVPageView AcroApp.Show '*********************************** 'SETUP, FIND AND CONVERT BOOKMARKS Set PDDoc = AVDoc.GetPDDoc Set JSO = PDDoc.GetJSObject Set BookmarkRoot = JSO.BookmarkRoot Bookmarks = JSO.BookmarkRoot.Children For Each child In Bookmarks NewPDDoc.Create PDBookmark.GetByTitle PDDoc, child.Name PDBookmark.Perform AVDoc 'PageIndex is zero based PageIndex = AVPageView.GetPageNum NewPDDoc.InsertPages -1, PDDoc, PageIndex, 1, 0 PDFFilePath = strPath & child.Name & ".pdf" NewPDDoc.Save Acrobat.PDSaveFull, PDFFilePath ConvertPDF (PDFFilePath) x = x + 1 BMArray(x) = PDFFilePath Set NewPDDoc = Nothing Next Set PDDoc = Nothing For i = 1 To x Kill BMArray(i) Next Set BookmarkRoot = Nothing Set JSO = Nothing PDDoc.Close End Function
... View more
Get ready! An upgraded Adobe Community experience is coming in January.
Learn more
Copyright © 2025 Adobe. All rights reserved.
AdChoices