Reemplazar texto de encabezamiento y pie

[toni.vi]

Desde hace tiempo que utilizo el código de abajo y me funciona bien para reemplazar textos en word, pero ahora me han pedido que reemplace texto que está en el encabezamiento de word, y no lo hace.
Como se puede reemplazar?.
Trozo de Código.

SearchText := vTextoOrigen;
ReplaceText := vTextoCambiar;
Wrap := wdFindContinue;
All := wdReplaceAll;
WordDocument1.Content.Find.Execute(SearchText, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, Wrap,
EmptyParam, ReplaceText, All);

Saludos
Toni