Access - MULTIPLES CARTAS WORD DESDE ACCESS

Private Sub BtnImpAcuse_Click()

'Generamos carta de acuse automática

On Error GoTo Err_cmdCombinar

Dim AppWord As Word.Application

Dim DocWord As Word.Document

Dim Texto As String

' Variable con el nombre completo de la carta a guardar.

Dim fileName As String

'Variable en la que se tiene u obtiene el nombre de la plantilla.

Dim Plantilla As String

' Variable en la que se tiene u obtiene el nombre del directorio de las cartas.

Dim DirNotas As String

Plantilla = "C:\midirectorio\cartas\CARTA_ACUSE_RC_2.dotx"

DirNotas = "C:\midirectorio\cartas\"

' Abrir el Word utilizando la plantilla.

AppWord.Documents.Add Template:=Plantilla, NewTemplate:=False

Set DocWord = AppWord.ActiveDocument

' Comprobar existencia de los marcadores , si Existe

' y el contenido del cuadro de texto del formulario no es nulo se introduce

' en el documento.

If DocWord.Bookmarks.Exists("Marcador1") Then

If Not IsNull(Campo1) Then

DocWord.Bookmarks("Marcador1").Select

Texto = Campo1

DocWord.Application.Selection.TypeText Text:=Texto

End If

End If

..... SON 7 MARCADORES CON DIFERENTES TIPOS DE DATOS

AppWord.Visible = True

AppWord.ActiveDocument.SaveAs2 fileName

AppWord.WindowState = wdWindowStateMaximize

Exit_cmdCombinar:

DoCmd.Hourglass False

Exit Sub

Err_cmdCombinar:

If Err = 91 Or Err = -2147023174 Then

Set AppWord = New Word.Application

Resume

End If

'bloqueo boton

Me.BtnImpAcuse.Enabled = False

End Sub