如何在delphi5中實現對word文檔頁眉的設置？

我這有一個對當前頁面的設置代碼

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;

可是只能修改第一頁的，怎麼修改後面的頁面的頁眉？