word页码(30分)

这是我录制的宏，哪位高手帮我翻译成delphi?谢谢
Sub aaa()
Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _
wdAlignPageNumberCenter, FirstPage:=True
End Sub

楼主，你发了两贴，是不是两贴都给分

procedure TForm1.Button1Click(Sender: TObject);
var Align,ShowFirstlevariant;
sec:section;
Foot:HeaderFooter;
begin
Align:=wdAlignPageNumberCenter;
ShowFirst:=True;
sec:=WordApplication1.ActiveDocument.Sections.Item(1);
Foot:=sec.Footers.Item(1);
Foot.PageNumbers.Add(Align,ShowFirst);
end;

兄弟，你编译通过了吗？不用WordApplication控件。还有，解决了问题两贴分合一，如何？

搞定了，谢谢兄弟