Delphi - MSWord desde Delphi

Hola.

Quiero sabe como remplazar en texto que se encuentra dentro de un pie de pagina en un documento en MSWord.

El siguiente codigo si funciona con cualquier otro texto ubicado en el documento en MSWord, pero no el los pie de pagina o encabezados de pie de pagina.

implementation
uses
ComObj;

procedure TForm1.Button2Click(Sender: TObject);
const
wdFindContinue = 1;
wdReplaceOne = 1;
wdReplaceAll = 2;
var
WordApp: Variant;
begin
WordApp:=CreateOleObject('Word.Application');
WordApp.Documents.Open('c:\TestDoc.doc');
// SI FUNCIONA ESTO
WordApp.Selection.Find.ClearFormatting;
WordApp.Selection.Find.Text := 'VIEJOTEXTO';
WordApp.Selection.Find.Replacement.Text := 'NUEVO TEXTO';
WordApp.Selection.Find.Execute(Replace := wdReplaceAll);

// ESTO NO FUNCIONA
WordApp.Selection.HeaderFooter.Find.Text := 'PiePagina';
WordApp.Selection.HeaderFooter.Find.Replacement.Text := 'Mi pie de pagina';
WordApp.Selection.HeaderFooter.Find.Execute(Replace := wdReplaceAll);

WordApp.ActiveDocument.SaveAs('C:\oficios\ofi.doc');
WordApp.ActiveDocument.Close;
WordApp.Quit;
WordApp := Unassigned;
end;