无法通过Delphi替换word应用程序中的页脚文本

Question

我试图替换页脚中的文本,我使用以下代码,通过它我可以替换正常内容(正文)但不替换页脚/标题中的内容

myWinWordApp := CreateOLEObject('Word.Application');
myWinWordApp.visible := true;
myWinWordApp.documents.open('c:\ole.doc');
myWinWordApp.Selection.Find.Text :=  'oo';
myWinWordApp.selection.Find.Replacement.Text := 'aa';
myWinWordApp.Selection.Find.Execute(Replace := 2);

任何帮助都非常感谢.提前致谢

Answer 1

回答评论:

我想尝试的视图设置页眉/页脚模式,也许是做类似ActiveWindow.ActivePane.View.SeekView := wdSeekCurrentPageHeader如图所示这里.