Facing some issue with PDF when finding a value with VBA code for large files

[Balu]

microsoft excel is waiting for another application to complete an ole action vba.

when i am trying to find any text in adobe through VBA im facing some pop as above mentioned.

[gkaiseril]

PDFs do not use VBA. Also if you are using the cell script you are providng input to a VBA funcion.

[Balu]

Thanks for responce,

i am trying to access the adobe from VisualBasic for Application (Macros) and trying to find the number/text. then we getting a pop up(larger files like 300/500 pages and above) "microsoft excel is waiting for another application to complete an ole action vba"

Example:

sub codetest

   Dim PDFApp As AcroApp
   Dim PDFDoc As AcroAVDoc

'Initialize Acrobat by creating App object
Set PDFApp = CreateObject("AcroExch.App")
PDFApp.Show
'Set AVDoc object
Set PDFDoc = CreateObject("AcroExch.AVDoc")
'For Page number
Set AcroAvPageView = PDFDoc.GetAVPageView()

searchtext="Pleasesearchvalue"

If PDFDoc.Open(Docname, "") = True then

       If PDFDoc.findText(searchtext , 1, 0, 1) = -1 Then ' here we are getting the pop up."microsoft excel is waiting for another application to complete an ole action vba"

      Msgbox "Found"
       End If

endif

end sub

[Balu]

Thanks for responce,

here i am trying to write my code in Excel VBA to acess adobe.

i am trying to access the adobe from VisualBasic for Application (Macros) and trying to search the number/text with findText option. then we getting a pop up(larger files like 300/500 pages and above) "microsoft excel is waiting for another application to complete an ole action vba"

Example:

sub codetest

   Dim PDFApp As AcroApp
   Dim PDFDoc As AcroAVDoc

'Initialize Acrobat by creating App object
Set PDFApp = CreateObject("AcroExch.App")
PDFApp.Show
'Set AVDoc object
Set PDFDoc = CreateObject("AcroExch.AVDoc")
'For Page number
Set AcroAvPageView = PDFDoc.GetAVPageView()

searchtext="Pleasesearchvalue"

If PDFDoc.Open(Docname, "") = True then

       If PDFDoc.findText(searchtext , 1, 0, 1) = -1 Then ' here we are getting the pop up."microsoft excel is waiting for another application to complete an ole action vba"

      Msgbox "Found"
       End If

endif

end sub