Public Sub GenerarDocumentoWord()
Dim oWord As Object
Dim oDoc As Object
Dim directorio As String
Dim nombreArchivo As String
Dim strSQL As String
Dim rs As DAO.Recordset
' Establece la ruta del directorio donde se guardará el archivo de Word
directorio = "C:\Ruta\Directorio\" ' Reemplaza con tu ruta deseada
' Crea una consulta para obtener los datos relevantes de la tabla de Access
strSQL = "SELECT * FROM TuTabla WHERE TuCampoID = <ID_Registro>"
' Reemplaza "TuTabla" con el nombre de tu tabla y "TuCampoID" con el nombre del campo que identifica el registro actual
' Abre la conexión con la base de datos de Access
Set rs = CurrentDb.OpenRecordset(strSQL)
' Verifica si se encontró un registro válido
If Not rs.EOF Then
' Obtiene el nombre del archivo basado en los datos del registro actual
nombreArchivo = rs!CampoNombreArchivo ' Reemplaza "CampoNombreArchivo" con el nombre del campo que contiene el nombre del archivo en tu tabla
' Crea una instancia de Word
Set oWord = CreateObject("Word.Application")
' Crea un nuevo documento en Word
Set oDoc = oWord.Documents.Add
' Realiza la combinación de correspondencia utilizando los datos del registro actual
' Aquí puedes agregar el código para personalizar la combinación de correspondencia según tus necesidades
' Guarda el documento de Word con el nombre y la ubicación especificados
oDoc.SaveAs directorio & nombreArchivo & ".docx"
' Cierra el documento de Word
oDoc.Close
' Cierra Word
oWord.Quit
' Limpia los objetos
Set oDoc = Nothing
Set oWord = Nothing
' Cierra el recordset
rs.Close
Set rs = Nothing
Else
' Si no se encontró un registro válido, muestra un mensaje de error o realiza las acciones apropiadas
MsgBox "No se encontró un registro válido."
rs.Close
Set rs = Nothing
End If
End Sub