Problema de reemplazo de título vba de Word2010

mysec.Headers(1).Range.Text = Reemplazo(Replace(mysec.Headers(1).Range.Text, "ABC", "111 "), Chr(13), "")

Porque si miras de cerca, encontrarás que hay un retorno de carro al final del texto en el encabezado, como el final de un párrafo o tabla. Puede usar debug.print len(mysec.headers(1).range.text) para ver la longitud del encabezado, incluido el retorno de carro (chr(13)) al final. Entonces, cuando lo reemplazas con reemplazar, el carácter de retorno de carro sigue ahí.

Nota: La clave es que al asignar un valor a header.range.text, Word VBA no incluye el último carácter de retorno de carro de forma predeterminada, esto es más conveniente al programar; de lo contrario, debes acordarte de hacerlo; agréguelo al final cada vez que A chr(13), ¡no sería molesto!

Finalmente, la solución es usar reemplazar nuevamente para eliminar el carácter de retorno de carro antes de la asignación.