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.