难题,高手来,关于替换页眉页脚的问题!

[yang6130]

这个是查找<Acc>替换成"ABC"在WORD中录制的宏,可以替换正文或页眉页脚。
Sub Macro3()
'
' Macro3 Macro
' 宏在 2006-11-22 由 lenovo 录制
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "<Acc>"
.Replacement.Text = "ABC"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
这个是代码，只能替换正文，不能替换页眉页脚。
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;
请问以上代码如何修改才可以替换页眉页脚，解决问题的另给三百分，决不食言！谢谢！

[yang6130]

WordReplace函数是用Delphi写的，只能替换正文，不能替换页眉页脚。

[yang6130]

自已搞定，散分！

[Eddie005]

接分~

[newwyrain]

没啥说的、俺就是来接分的。
楼主真是好人

[ChinaOBS]

JF

[dzhu_87]

jf

[vico2]

学习，顺便拿点分。

[Arqui]

With ActiveDocument.Sections(1)
.Headers(wdHeaderFooterPrimary).Range.Text = "123"
.Footers(wdHeaderFooterPrimary).Range.Text = "13"
End With

[linjimu]

UP
恭喜。