Saludos Profesor Sergio, de ante mano gracias por responder, realice lo que me sugirió coloque el código donde me indicó, sin embargo me sigue arrojando el mismo error.
' Restaurar formato de fuente
With wsHistorico.Rows("2:2").Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
' Incrementar automáticamente el número de recibo
wsRecibo.Range("J2").Value = wsRecibo.Range("J2").Value + 1
'Corrección de Error en impresión
Application.Wait (Now + TimeValue("0:00:01"))
' Imprimir
wsRecibo.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Por
dorgelis, · publicado
Estoy combinando correspondencia utilizando un archivo de Word (W) que recoge datos de un archivo de Excel (E). Los dos archivos están en una carpeta que se llama Combinar ©. Hasta aquí todo bien. Mi problema es cuando muevo la carpeta © a otro sitio en mi ordenador el archivo de Word (W) pierde el enlace con el archivo de Excel (E), me solicita que busque el origen, busco el archivo en la nueva ubicación, y entonces vuelve a funcionar. La cuestión es que por razones de trabajo tengo que cambiar la carpeta de ubicación constantemente.
Me gustaría saber si hay alguna forma de que el Word (W) recoja automáticamente los datos del Excel (E) que está en la misma carpeta Combinar © independientemente de donde la ubique.
Gracias y saludos,
Jac