用VBA怎么插入页眉页脚(100分)(0分)

用VBA怎么插入页眉页脚

//插入页眉
WordApplication1.ActiveDocument.Sections.First.Headers.Item(wdHeaderFooterPrimary).Range.Text := 'trtr';
FirstPage:=False;
PageNumberAlignment := wdAlignPageNumberCenter;
WordApplication1.ActiveDocument.Sections.First.Footers.Item(wdHeaderFooterPrimary).PageNumbers.Add(PageNumberAlignment,FirstPage);

楼主也在做这方面的工作呀，有机会交流一下
sunhongweisun@yahoo.com.cn