Pessoal, no caso, o erro do código "MANEIRA2" ocorre na linha anterior à que eu comentei.

Bom dia, @jefreitas

Como vc já fez referência à biblioteca do Word, dê preferência a fazer pela "Maneira1" que usa Ligação Antecipada (Early Binding) ao invés da Maneira2 (Ligação Tardia = Late Binding). O erro naquela linha é que vc esqueceu de colocar o ponto antes de ActiveDocument. Altere então para:

Set myRange = .ActiveDocument.Content

Sugestão: nunca use nomes reservados para nomes de variáveis, pois isso pode comprometer o funcionamento de suas rotinas. Então, ao invés de criar uma variável chamada "WORD", dê o nome a ela de, por exemplo "wdApp" ou "APPWORD" ou "WORD1".

@edsonbr resolvido, muito obrigado...

Pessoal desculpem por desenterrar o tópico, mas quem puder me ajudar eu agradeço. Eu estou tendo problemas com essa solução, quando eu tento substituir um texto no word   com uma cadeia de texto com mais de 255 caracteres. O Excel exibe erro em tempo de execução 5854 - o parâmetro da cadeia é muito longa.