Procedimiento Sub para abrir en Word un documento para mailing

Tengo asignado a un botón en Excel el procedimiento Sub siguiente:

Sub abre_contrato_metálico()
Dim MiHoja As Object
Dim txt
On Error GoTo MiError
txt = "C:\Users\Padre\Desktop\CON CONTROLES\CONTRATO METALICO.docx"
Set MiHoja = CreateObject("Word.Application")
MiHoja.Visible = True
MiHoja.Documents.Open (txt)
MsgBox "CONTRATO METÁLICO está abierto. Pincha en su icono en la parte inferior."
Set MiHoja = Nothing
Exit Sub
MiError:
MsgBox "Nro de Error : " & Err & Chr(10) & "Leyenda de Error : " & Error
End Sub

La idea es abrir el documento de Word que tiene campos asignados del documento de Excel para realizar un mailing.

El procedimiento efectivamente abre el documento de Word pero la opción "Finalizar y combinar" de la pestaña de Correspondencia no aparece activa y ello me obliga a volver a "Seleccionar destinatarios" cada vez que lo abro.

¿Alguna sugerencia?.

Añade tu respuesta

Haz clic para o