帮忙看下怎么插入页码

Question

VAR
 vWordApp, vWnd: Variant;
begin
  vWordApp:=CreateOleObject('Word.Application');
  vWordApp.Visible:=True;
  try
   vWordApp.documents.add();
   vWnd := vWordApp.ActiveWindow;
   vWnd.ActivePane.View.SeekView := 9;
   vWnd.Selection.InsertAfter(‘第一页‘);//页眉
   vWnd.ActivePane.View.SeekView := 0;
except
  end;程序如上，当我运行后就自动打开一个空白的WORD文档，并且页眉那里显示第一页，想问的是我怎么在页眉那里插入一个页码，当我在空白的WORD输入我的内容后该页码要显示我的页数，就像在WORD插入页码一样，当我输入到第二页他就显示第二页!!!

Answer 1

NormalTemplate.AutoTextEntries("第 X 页 共 Y 页").Insert Where:=Selection.Range
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
 上面是我在WORD录制的宏 请问怎么把上面的翻译为DELPHI的呢？