delphi 替换页眉页脚？

Question

function TForm1.WordReplace(docText, newText: String): boolean;
begin
  result:=true;
  try
    wdApp.Selection.Find.ClearFormatting;
    wdApp.Selection.Find.Replacement.ClearFormatting;
    wdApp.Selection.Find.Text := docText;
    wdApp.Selection.Find.Replacement.Text :=newText;
    wdApp.Selection.Find.Forward := true;
    wdApp.Selection.Find.Wrap := wdFindContinue;
    wdApp.Selection.Find.Format := False;
    wdApp.Selection.Find.MatchCase := False;
    wdApp.Selection.Find.MatchWholeWord := false;
    wdApp.Selection.Find.MatchByte := True;
    wdApp.Selection.Find.MatchWildcards := false;
    wdApp.Selection.Find.MatchSoundsLike := False;
    wdApp.Selection.Find.MatchAllWordForms := False;
    wdApp.Selection.Find.Execute(Replace:=wdReplaceAll); //
    result:=true;
  except
    result:=false;
  end;
end;
这段代码只能替换正文，，如何替换页眉页脚呢？ 请大家指教，，谢谢

Answer 1

参考http://bbs.csdn.net/topics/80191984