Les hago una consulta, vi muchos temas relacionados pero no pude encontrar la respuesta puntal y que funcione.
Necesito una codificacion en vb para pasar el texto de un PDF a txt para despues poder usarlo en otras programas, me es mas facil capturar la informacion del txt que del pdf.
Hay miles de programas y demas, pero sucede que desde mi trabajo no es posible instalar nada, entonces estoy en busca de esta solucion.
Ojala puedan ayudarme.
Desde ya muchas gracias.
Saludos
MD.
Publicado:
Mie Oct 30, 2013 6:51 pm
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: Consulta: PASAR PDF A TXT .VB?
Anuncios
En el siguiente enlace tienes un tutorial que explica paso a paso cómo desarrollar una aplicación para extraer el texto de un fichero PDF, además, este tutorial muestra cómo pasarlo a una base de datos:
Anda barbaro, pero el tema es que lo tengo que usar en VBA, no tengo el visual basic .net o c# instalado y no puedo hacerlo ya que la empresa no me lo permite.
Hay alguna posibilidad de hacer en VBA?
Osea lo que no puedo realizar es una aplicacion, lo que tengo que hacer es en el codigo hacer que se habra el archivo pdf, pase a texto y me lo pongo en un .txt. Pero el tema es que no puedo hacer una aplicacion porque no me lo permite instalarla.
Ojala puedan darme una mano.
De todos modos muchas gracias por tu tiempo.
Publicado:
Jue Oct 31, 2013 12:23 pm
mediaz Usuario
Registrado: Oct 30, 2013 Mensajes: 4
Asunto:
y adjunto un problema mas, tengo el adobe reader nada mas y no puedo instalar el adobe acrobar. Necesito una solucion :/
Publicado:
Jue Oct 31, 2013 3:33 pm
mediaz Usuario
Registrado: Oct 30, 2013 Mensajes: 4
Asunto:
Este codigo que encontre me funciono pero pasa que me tira todos los datos en muchas lineas, osea una letra por linea.
Algun consejo o otra solucion?
1. Private Sub cmdCreateLog_Click()
2.
3. Dim lngLocation As Long
4. Dim strLine As String
5.
6. Open "c:\test.pdf" For Binary As #1 ' Open file just created.
7. Open "c:\pdfTest.txt" For Output As #2
8.
9. Do While lngLocation < LOF(1) ' Loop until end of file.
10. strLine = Input(1, #1) ' Read character into variable.
11. lngLocation = Loc(1) ' Get current position within file.
12. Print #2, lngLocation & " " & Replace(Replace(strLine, vbLf, "line feed"), vbCr, "carriage return") & vbCrLf;
13.
14. Loop
15. Close #1 ' Close file.
16. Close #2
17.
18. End
19.
20. End Sub
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A