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]