Sub EnviarYCombinarRegistros()
Dim db As Database
Dim rs As Recordset
Dim wordApp As Object ' Objeto de la aplicación Word
Dim wordDoc As Object ' Objeto del documento Word
Dim strDocumento As String ' Ruta del documento de Word
' Ruta del documento de Word que usarás como plantilla para la combinación
strDocumento = "C:\Ruta\Al\Documento\Plantilla.docx"
' Abre la base de datos y la tabla que contiene los registros a enviar
Set db = CurrentDb()
Set rs = db.OpenRecordset("NombreTabla")
' Crea una instancia de la aplicación Word y abre el documento de plantilla
Set wordApp = CreateObject("Word.Application") Set wordDoc = wordApp.Documents.Open(strDocumento)
' Bucle para recorrer los registros y enviarlos a Word
Do While Not rs.EOF
' Coloca aquí el código para enviar el registro a Word, por ejemplo:
' wordDoc.Bookmarks("NombreCampo1").Range.Text = rs!Campo1 ' wordDoc.Bookmarks("NombreCampo2").Range.Text = rs!Campo2 ' ...
' Realiza la combinación de correspondencia en Word para este registro
wordApp.MailMerge.Execute
' Guarda el documento combinado con un nombre único o en una carpeta específica si lo deseas
' Avanza al siguiente registro
rs.MoveNext
Loop
' Cierra la conexión con la base de datos y el documento de Word
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
wordApp.Quit
Set wordDoc = Nothing
Set wordApp = Nothing
End Sub
