Macro para imprimir todos los registros desde word con combinar correspondencia
De nuevo Prozac:
Otra vez recurro a tí con la esperanza de que me puedas dar una respuesta a la siguiente cuestión.
Tengo una carta en Word que está combinada con una tabla de excel utilizando el sistema de "combinar correspondencia" . He generado una macro con la que desde un botón en el libro de excel me abre la carta de Word, la imprime y la cierra. La macro funciona correctamente, con la salvedad de que sólo me imprime el primero de los registros de la tabla. Mi intención es que me imprima todos los registros, es decir, una carta para cada uno de los registros, pero no sé qué instrucción poner para que lo haga así. También me interesaría que en el momento de cerrarse el documento se cerrase sin guardar cambios ni hacerme la pregunta (aunque lo cierto es que ahora tampoco me pregunta nada ni creo que me guarde los cambios).
El código que tengo escrito en la macro es el siguiente:
Sub abre_Word()
Dim MiHoja As Object
Dim txt
txt = "C:\Users\MANOLO\Desktop\Documentos Nuevos\Doc1.docx"
Set MiHoja = CreateObject("Word.Application")
MiHoja.Visible = True
MiHoja. Documents. Open (txt)
MiHoja. ActiveDocument. PrintOut
MiHoja. ActiveDocument. Close
MiHoja. Quit
End Sub
Gracias por adelantado, aunque sólo sea por aguantarme el rollo.