Descobri uma maneira, usando a type library do Acrobat que é instalada com o
produto. Vejam o VBScript abaixo:
Option Explicit
Dim AcroApp, AcroAVDoc
Dim gPDFPath, bReset, nCount
gPDFPath = "C:\QTTutorial.pdf"
' ** Initialize Acrobat by creating App object
Set AcroApp = CreateObject( "AcroExch.App" )
' ** show Acrobat
AcroApp.Show()
' ** Set AVDoc object
Set AcroAVDoc = CreateObject( "AcroExch.AVDoc" )
' ** open the PDF
If AcroAVDoc.Open( gPDFPath, "" ) Then
AcroAVDoc.BringToFront()
bReset = True : nCount = 0
Do While AcroAVDoc.FindText( "Checkpoint", True, True, bReset )
bReset = False : nCount = nCount + 1
Wait 0, 200
Loop
End If
AcroApp.CloseAllDocs()
AcroApp.Exit()
Print "The word 'Checkpoint' was found " & nCount & " times."
Set AcroApp = Nothing
Sds.
Grato a todos que tiveram atenção com minha dúvida.
Sds.
De: [email protected] [mailto:[email protected]] Em nome
de Marcelo
Enviada em: quinta-feira, 10 de junho de 2010 14:14
Para: [email protected]
Assunto: Res: [delphi-br] Buscar/Procurar Texto em PDF
O Adobe Professional voce pode salvar em txt em depois pesquisar
________________________________
De: Rubem Rocha <[email protected]
<mailto:rubem.rocha%40dtmanaus.com.br> >
Para: [email protected] <mailto:delphi-br%40yahoogrupos.com.br>
Enviadas: Quinta-feira, 10 de Junho de 2010 12:58:27
Assunto: [delphi-br] Buscar/Procurar Texto em PDF
Algum colega na lista teve necessidade de fazer busca de textos em arquivos
PDF?
[As partes desta mensagem que não continham texto foram removidas]
