Access - AYUDA FUSION CON WORD

Private Sub btnFusionar_Click()

    Dim objWord As Object

    Dim objDoc As Object

    Dim strPlantilla As String

    ' Ruta de la plantilla de Word

    strPlantilla = "C:\Ruta\de\la\Plantilla.docx"

    ' Crear una instancia de Word

    Set objWord = CreateObject("Word.Application")

    ' Abrir la plantilla

    Set objDoc = objWord.Documents.Open(strPlantilla)

    ' Acceder a los campos de formulario y fusionar los datos

    objDoc.FormFields("Campo1").Result = Me.NombreCampo1.Value

    objDoc.FormFields("Campo2").Result = Me.NombreCampo2.Value

    ' Guardar y cerrar el documento

    objDoc.SaveAs "C:\Ruta\de\salida.docx" ' Ruta de salida del documento fusionado

    objDoc.Close

    ' Cerrar Word

    objWord.Quit

    ' Liberar memoria

    Set objDoc = Nothing

    Set objWord = Nothing

    MsgBox "La fusión de datos se ha completado correctamente.", vbInformation

End Sub