如何在delphi5中实现对word文档页眉的设置？

最新推荐文章于 2025-05-29 13:28:33 发布

原创最新推荐文章于 2025-05-29 13:28:33 发布 · 1.3k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #文档

博客给出一段Delphi代码，用于对当前Word页面进行设置，可在页眉插入页码信息，但该代码只能修改第一页的页眉，博主询问如何修改后面页面的页眉。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

我这有一个对当前页面的设置代码

var

mmm,nnn,aaa:OleVariant;

begin

    mmm:=wdLine;
    nnn:=1;
    aaa:=wdFieldPage;
    WordApp.ActiveWindow.ActivePane.View.SeekView :=wdSeekCurrentPageHeader ;
    WordApp.Selection.Move(mmm,nnn);
    WordApp.Selection.ParagraphFormat.Alignment := wdAlignParagraphCenter;

    WordApp.Selection.InsertAfter('第');
    mmm:=wdCharacter;
    WordApp.Selection.Move(mmm,nnn);
    WordApp.Selection.Fields.Add(WordApp.Selection.Range,aaa,mmm,nnn);
    aaa:=wdFieldNumPages;
    WordApp.Selection.InsertAfter('页/第');
    WordApp.Selection.Move(mmm,nnn);
    WordApp.Selection.Fields.Add(WordApp.Selection.Range,aaa,mmm,nnn);

WordApp.Selection.InsertAfter('页');
WordApp.ActiveWindow.ActivePane.View.SeekView := wdSeekMainDocument;

end;

可是只能修改第一页的，怎么修改后面的页面的页眉？