H o l a:
Hace tiempo hice esta macro y funcionó, puedes probar:
Sub PasarDatosaPdf()
'Por.Dante Amor
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set h2 = Sheets("Hoja2") 'contador
'
celdas = Array("A2", "B2", "C2", "D2", "E2", "F2", "G2")
'
ruta = "C:\Documents and Settings\DAMOR\Mis documentos\Formatos\"
nomb = "carta"
ActiveWorkbook.FollowHyperlink ruta & nomb & ".pdf"
'
Application.Wait Now + TimeValue("00:00:03")
For i = LBound(celdas) To UBound(celdas)
DoEvents
SendKeys "{TAB}", True
DoEvents
h2.Range(celdas(i)).Copy
DoEvents
SendKeys "^v", True
DoEvents
Next
'
Application.ScreenUpdating = True
MsgBox "Se enviaron los datos al pdf"
End Sub
Cambia en la macro lo siguiente:
"Hoja2" por el nombre de tu hoja en donde tienes los datos.
"A2", "B2", "C2", "D2", "E2", "F2", "G2", por las celdas en donde tienes los datos. Es importante que pongas las celdas en el orden en que aparecen los campos en el PDF de izquierda a derecha y de arriba hacia abajo, en mi ejemplo, mi primer campo es la celda A2.
"C:\Documents and Settings\DAMOR\Mis documentos\Formatos\" por la ruta en donde tienes el pdf
"carta" por el nombre de tu archivo
Sigue las Instrucciones para ejecutar la macro
- Abre tu archivo de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Para ejecutarla presiona F5
Enlace a la pregunta:
Datos de excel a formulario rellenable pdf -para dante
':)
S a l u d o s . D a n t e A m o r
':) Si es lo que necesitas. Recuerda valorar la respuesta. G r a c i a s.