Copy link to clipboard
Copied
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.
Copy link to clipboard
Copied
PDFs do not use VBA. Also if you are using the cell script you are providng input to a VBA funcion.
Copy link to clipboard
Copied
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
Copy link to clipboard
Copied
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