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: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome
de Marcelo
Enviada em: quinta-feira, 10 de junho de 2010 14:14
Para: delphi-br@yahoogrupos.com.br
Assunto: Res: [delphi-br] Buscar/Procurar Texto em PDF
O Adobe Professional voce pode salvar em txt em depois pesquisar
De: Rubem Rocha rubem.ro...@dtmanaus.com.br
mailto:rubem.rocha%40dtmanaus.com.br
Para: delphi-br@yahoogrupos.com.br 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]
