delphi - 无法通过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所示的操作。