Combinar correspondencia desde Access
Publicado por iemz7 (1 intervención) el 12/06/2004 20:48:48
¿Como puedo combinar correspondencia desde access por medio de Visual Basic for Aplications
Valora esta pregunta


0
Dim objWord As Object
Set objWord = CreateObject("Word.Application")
objWord.Visible = True ' Opcional: Mostrar Word en pantalla
Dim objDoc As Object
Set objDoc = objWord.Documents.Open("Ruta\al\archivo.docx")
' Ejemplo: Rellenar un campo de combinación llamado "Nombre"
objDoc.MailMerge.Fields("Nombre").Value = "John Doe"
objDoc.MailMerge.Execute
objDoc.SaveAs "Ruta\al\archivo_combinado.docx"
objDoc.Close
objWord.Quit