** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Tus Funciones Favoritas & Aportaciones & Artí­culos
  Mensajes nuevos Mensajes nuevos RSS - VBA: Acces - Excel. Rellenar formulario PDF
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoVBA: Acces - Excel. Rellenar formulario PDF

 Responder Responder
Autor
Mensaje
FLeCos Ver desplegable
Nuevo
Nuevo


Unido: 06/Mayo/2007
Estado: Sin conexión
Puntos: 1
Enlace directo a este mensaje Tema: VBA: Acces - Excel. Rellenar formulario PDF
    Enviado: 23/Marzo/2014 a las 18:13
Aqui os pongo una alternativa a rellenar un formulario de Acrobat PDF desde VBA (Access, Excel)

NO hace falta tener instalado ninguna libreria especial.

1º - Seleccionamos el formulario que queremos rellenar.
2º - Rellenamos cada uno de sus campos con una etiqueta única. Por ejp. (para "Nombre" yo pondría #(nmb), para "Apellidos" podría #(ape), etc.). Aconsejo que sea una combinación rara y poco común. Estas etiquetas no pueden ser mayor que la longitud máxima del campo en el que se incluyen.
3º - Guardamos dicho formulario asi rellenado como nuestra plantilla a rellenar por el programa.
4º - Por ultimo usamos desde VBA el siguiente CODIGO.

sRuta = currentproject().path
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile sRuta & "\PLANTILLA.PDF", sRuta & "\FICHERO.PDF"  ' & sFichDes
Set fs = Nothing

'Abrir fichero donde se sustituira   
Open sRuta & "\FICHERO" For Binary As #1   
strBytes = Space$(LOF(1))
Get #1, , strBytes
Close #1
strBytes = Replace(strBytes, "#(nmb)", VARIABLE_NOMBRE, , , vbBinaryCompare)
strBytes = Replace(strBytes, "#(dni)",VARIABLE_DNI, , , vbBinaryCompare)
strBytes = Replace(strBytes, "#(ape)", VARIABLE_APELLIDOS, , , vbBinaryCompare)
   
' Grabar fichero con los valores sustituidos
Open sRuta & "\FICHERO" For Binary As #2 
Put #2, , strBytes
Close #2


NOTA: Esta forma de rellenar tiene su limitaciones, pero para un formulario normalito va perfecto.


Saludos

Espero que os sea de ayuda

Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable