¿buscar/reemplazar en Word desde código vb?

Hola a todos:

Tengo un proyecto de Access con el siguiente código en un formulario:

Public Sub saleAword()
Dim oWord As Object
Dim oWdoc As Object

On Error Resume Next
Set oWord = GetObject(, "Word.Application")
If Err.Number = 429 Then Set oWord = CreateObject("Word.Application")
On Error Goto 0

Set oWdoc = oWord.Documents.Add(CurrentProject.Path &
"\miDocWordOriginal.doc")

oWdoc.content.Find.Execute "#año#", False, , , , , , , , Nz(Me.Año),
wdReplaceAll

oWdoc.content.Find.Execute "#objetivo#", False, , , , , , , ,
Nz(Me.Objetivo), wdReplaceAll
...
...

Se trata de reemplazar todas las ocurrencias de la palabra "#año#" y
"#objetivo#" por los correspondientes que se encuentran en el formulario de
Access.

El código funciona bien para "#año#" , pero falla cuando trata de reemplazar
"#objetivo#" ya que ese campo tiene como 500 caracteres.

¿Cómo pudiera solucionar esto?


Gracias de antemano!!

Por cierto, oWdoc.content.Find.Execute no reemplaza lo que está en los
encabezados ni pies de página :(