用Delphi控制Word替换页眉(100分)

Delphi操纵Word替换指定文本的方法是：
FindText := '<#XM>';
MatchCase := False;
MatchWholeWord := True;
MatchWildcards := False;
MatchSoundsLike := False;
MatchAllWordForms := False;
Forward := True;
Wrap := wdFindContinue;
Format := False;
ReplaceWith := DM.ADOQryMainXM.Value;
Replace := wdReplaceAll;
WordDocument1.Range.Find.Executeold( FindText, MatchCase, MatchWholeWord,
MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward,
Wrap, Format, ReplaceWith, Replace );

这个只能替换正文中的<#XM>，现在页眉也有<#XM>，请问如何替换？
希望大家不吝赐教，在线2个小时等待...

d

在 Excel 中有这个可以
ExcelApp.ActiveSheet.PageSetup.CenterHeader := '报表演示';
但是 word...
不太清楚

有人吗？

再次提前，晚上6点结帖。

还是没人回答哦，不过我自己已经解决了。
结帖。