Eu tenho um código definido para a página atual
var
mmmm, nnn, aaa: olevariant;
Começar
mmmm: = wdline;
nnn: = 1;
AAA: = WDFieldPage;
WordApp.ActiveWindow.ActivePane.View.seekView: = wdseekcurrentpageHeader;
WordApp.Selection.Move (MM, NNN);
WordApp.Selection.ParagraphFformat.alignment: = wdalignParagraphCenter;
WordApp.selection.insertafter ('parte');
mmmm: = wdcharacter;
WordApp.Selection.Move (MM, NNN);
WordApp.Selection.fields.add (wordapp.selection.range, AAA, mmm, nnn);
AAA: = wdfieldNumpages;
WordApp.Selection.Insertafter ('página/capítulo');
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;
fim;
Mas você pode modificar apenas a primeira página.