Comment configurer l'en-tête de document Word dans Delphi5?

J'ai un code défini pour la page actuelle

var

mmmm, nnn, aaa: olevariant;

Commencer

mmmm: = wdline;

nnn: = 1;

aaa: = wdFieldPage;

WordApp.activewindow.activePane.view.seekView: = wdseekCurrentPageHeader;

WordApp.selection.move (mm, nnn);

WordApp.Selection.ParagraphFormat.Alignment: = wdalignParagraphCenter;

WordApp.selection.insertafter ('partie');

mmmm: = wdCharacter;

WordApp.selection.move (mm, nnn);

WordApp.selection.fields.add (wordApp.Selection.Range, aaa, mmm, nnn);

aaa: = wdfieldNumpages;

WordApp.selection.insertafter ('page / chapitre');

WordApp.selection.move (mm, nnn);

WordApp.selection.fields.add (wordApp.Selection.Range, aaa, mmm, nnn);

WordApp.selection.insertafter ('page');

WordApp.activewindow.activePane.view.seekView: = wdseekmainDocument;

fin;

Mais vous ne pouvez pas modifier la première page.