Below code searches for text “Windows” in a PDF file. You can learn more about method FindText and Wait which are used in this code here and here.
Option Explicit
Dim accapp, acavdocu
Dim pdf_path, bReset, Wrd_count
pdf_path = "C:\Tips.pdf"
'AcroExch.App is the Acrobat application; below we are initializing Acrobat by creating App object
Set accapp = CreateObject( "AcroExch.App" )
'show method shows the Acrobat application
accapp.Show()
'we have to create one AVDoc object per displayed document
Set acavdocu = CreateObject( "AcroExch.AVDoc" )
' opening the PDF
If acavdocu.Open( pdf_path, "" ) Then
acavdocu.BringToFront()
bReset = 1 : Wrd_count = 0
'FindText:Finds the specified text, scrolls so that it is visible, and highlights it
Do While acavdocu.FindText( "Primary", 1, 1, bReset )
bReset = 0 : Wrd_count = Wrd_count + 1
Wait 0, 200
Loop
End If
accapp.CloseAllDocs()
accapp.Exit()
msgbox "The word 'Windows' was found " & Wrd_count & " times."
Set accapp = Nothing:Set accapp = Nothing
The above code when run shows a message box like this below:
