//Procedimento para Extrair texto de arquivos PDF com Windev
tmpArq is string
tmpArq = fImageSelect(EdtArqPdf,"","Selecione PDF...","PDFs"+TAB+"*.PDF")
IF tmpArq<>"" THEN
EdtArqPdf = tmpArq // mostra o nome do arquivo na tela
ImgPDF = tmpArq // mostra o PDF na tela
StaTextoDoPDF = PDFToText(tmpArq,"1") // extrai texto pg 1
END
