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.
Claramente ustedes me pueden ayudar, estoy haciendo una combinación de correspondencia en donde genero códigos qr y los imprimo en word usando una tabla de excel. Pero el problema es que en cada pliego carta van 10 códigos qr y cuando los genero me quedan todos los folios consecutivos. Para cortar cada cupón es un lio, ya que en el primer pliego tengo del 1 al 10, en el segundo del 11 al 20 y así consecutivamente. Necesito que en el primer pleigo salgan en este orden, para hacer corte de 100 unidades (los pedidos mínimos son de 1000) 1, 11,22,33, ¿44,55 así consegutivamentealguien que me haya entendido? jajaj saludos! - mauro yañez