无法通过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所示的内容here。