Vb access sustituir texto de un cuadro de texto

Hola.

utilizo este código para poder sustituir el texto de un encabezado de access a word 2003

miword.Application.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader 

If Not IsNull(jugador) Then miword.Application.Selection.Find.Execute _ "%jugador%", , , , , , , wdFindContinue, , jugador, wdReplaceAll End If

Necesito cambiar ese texto, pero el texto está dentro de un cuadro de texto de word

Gracias