This code i have find out to read all pages in pdf
files and copy it in excel
but i want to pick a sentence... " the contract
no.3235 " in pdf files
the contract no. changes.. Can we do untill loops
till the last page and paste the result in excel column....one below the other
this can be great help


Code :

Dim AdobeApp As String
Dim AdobeFile As
String

Dim StartAdobe
Dim strPath As
String

Dim strFile As String
Sub
LoopThruDirectory()



strPath = "C:\_ImportTest\"
strFile =
Dir(strPath)


Do While strFile <>

Sheets.Add
After:=Sheets(Sheets.Count)

StartAdobeApp
strFile = Dir ' Get next
entry.

Loop

End Sub
Sub StartAdobeApp()

AdobeApp = "C:\Program Files
(x86)\Adobe\Acrobat 9.0\Acrobat\Acrobat.exe"

AdobeFile = strPath &
strFile


StartAdobe = Shell("" & AdobeApp & " " &
AdobeFile & "", 1)


Application.OnTime Now + TimeValue("00:00:05"),
"FirstStep"


End Sub
Private Sub FirstStep()
SendKeys ("^a")

' this the place i want a loop to find into the pages till last.
copy only the selected text "contract no.34234" the number part keep changing..
and move on to the next page ....the looping till last page of the pdf...and
paste the entire copied strings...into excel one string in one cell..


SendKeys ("^c")
Application.OnTime Now +
TimeValue("00:00:10"), "SecondStep"

Call
SecondStep

End Sub

Private Sub SecondStep()
SendKeys
("%fx")

AppActivate "Microsoft
Excel"

ThisWorkbook.Activate
Range("A1").Activate
SendKeys
("^v")

End Sub