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

将评论变成答案:

我会尝试将 View 设置为页眉/页脚模式，也许通过执行类似 ActiveWindow.ActivePane.View.SeekView := wdSeekCurrentPageHeader 的操作，如图所示 here .