Delphi5でWord Documentヘッダーを設定する方法は？

現在のページのセットコードがあります

var

mmmm、nnn、aaa：olevariant;

始める

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（ 'part'）;

mmmm：= wdcharacter;

wordapp.selection.move（mm、nnn）;

wordapp.selection.fields.add（wordapp.selection.range、aaa、mmm、nnn）;

aaa：= wdfieldnumpages;

wordapp.selection.insertafter（ 'page/章'）;

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;

終わり;

ただし、最初のページのみを変更できます。