Importar PDF para Txt

Bom dia Amigos!

Uma forma de converter PDF para TXT

Baixando o programa: XPDF no site "procure no google (não pode colocar link aqui)" seria http www(ponto)xpdfreader(ponto)com/download(ponto)html
e também as suas ferramentas (apos baixar as ferramentas, salve elas na pasta do sistema e depois você vai usar o arquivo pdftotext.exe na função abaixo)

e usando o código abaixo:

Código:

Private Sub PdfToText(ByVal PdfPath As String, ByVal TextPath As String)
Const PathToPdfToText As String =  "path\pdftotext.exe" 'adicione o endereço onde esta o arquivo pdftotext.exe
With CreateObject("wscript.shell")
  .Run Chr(34) & PathToPdfToText & "pdftotext.exe" & Chr(34) & " " & Chr(34) & PdfPath & Chr(34) & " " & Chr(34) & TextPath & Chr(34), 1, 1
End With
End Sub

use a função assim:  PdfToText arquivo.pdf, arquivo.txt

Obs: lembrando que o caminho do  arquivo.txt tem que ser com poucas pastas, se for um caminho tipo:c:\dados\arquivo1\arquivo2\arquivo.txt comigo nao funcionou o código
agora se colocar: c:\arquivo\arquivo.txt  assim com poucas pastas no diretório funcionou

lembrando também, que pdf provindo de fotos ou scaneamentos (em forma de figura) não vai gerar direito o arquivo texto.

espero que ajude galera!

Bons estudos!

Olá Cleber Botelho,

Obrigado pela partilha da "dica", o fórum agradece.

Abraço

...valeu mais pelo grande apoio de vocês e do fórum...

...mas se alguém achar uma solução melhor, ou se souberem usar este recurso melhor postem aqui gente, estamos ai para aprender...