Script:

' Este script utiliza a biblioteca Adobe Acrobat para ler o conteúdo de um arquivo PDF

' Certifique-se de ter o Adobe Acrobat Reader instalado no seu sistema



Option Explicit



Dim objAcroApp, objAcroAVDoc, objAcroPDDoc, objJSO, strFilePath, strText



' Caminho do arquivo PDF que você deseja ler

strFilePath = "C:\caminho\para\seu\arquivo.pdf"



' Cria uma instância do Adobe Acrobat

Set objAcroApp = CreateObject("AcroExch.App")

Set objAcroAVDoc = CreateObject("AcroExch.AVDoc")



' Abre o documento PDF

If objAcroAVDoc.Open(strFilePath, "") Then

    Set objAcroPDDoc = objAcroAVDoc.GetPDDoc

    Set objJSO = objAcroPDDoc.GetJSObject



    ' Extrai o texto do PDF

    strText = objJSO.GetPageNthWord(0, 0, True)  ' Lê o primeiro word da primeira página



    ' Exibe o texto extraído

    MsgBox "Texto extraído do PDF: " & strText



    ' Fecha o documento

    objAcroAVDoc.Close True

Else

    MsgBox "Não foi possível abrir o arquivo PDF."

End If



' Fecha o Adobe Acrobat

objAcroApp.Exit



' Libera os objetos

Set objJSO = Nothing

Set objAcroPDDoc = Nothing

Set objAcroAVDoc = Nothing

Set objAcroApp = Nothing

Como Executar o Script:
1. Certifique-se de que o Adobe Acrobat Reader está instalado no seu sistema.
2. Abra o Bloco de Notas ou qualquer editor de texto de sua preferência.
3. Copie e cole o código acima no editor de texto.
4. Salve o arquivo com a extensão .vbs, por exemplo, ler_pdf.vbs.
5. Clique duas vezes no arquivo .vbs salvo para executar o script.
6. Uma mensagem de caixa de diálogo será exibida com o texto extraído do PDF.