Visual Basic - cambiar texto en word desde Visual Basic

Estoy desarrollando una aplicación para cambiar texto de documentos de word. El problema es que tengo que cambiar un texto de un encabezado de pagina a su vez insertado en un cuadro de texto, y no puedo buscar el texto y reemplazarlo en el cuadro de texto del encabezado de pagina.
Necesitaria cuanto antes obtener una respuesta ya que si no es un trabajo que hay que hacer a mano y son alrededor de 2000 documentos.

GRACIAS

Graba una macro en Word con lo que quieres hacer y pega el código en tu programa VB. Para abrir el documento:

Dim objWord As Word.Application

Set objWord = New Word.Application

objWord.Documents.Open "MiDocumento.doc"

Para un reemplazo fijate con esto:

With objWord
.Selection.Find.ClearFormatting
.Selection.Find.Replacement.ClearFormatting
With .Selection.Find
.Text = "TextoAReemplazar"
.Replacement.Text = "TextoReemplazado"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
.Selection.Find.Execute Replace:=wdReplaceAll
End With