关于delphi控制word插入页码的问题，在线等

Question

var
          vWordApp :   Variant;
          doc_model:string;
begin
doc_model:='c:\报表套打\template\test.doc';
vWordApp   :=   CreateOleObject('Word.Application');
vWordApp.Documents.Open(doc_model);
vWordApp.Visible   :=   true; vWordApp.Selection.Sections.item(1).Footers.item(1).PageNumbers.Add(wdAlignPageNumberCenter,True);vWordApp.Selection.Sections.item(1).Footers.item(1).PageNumbers.NumberStyle := wdPageNumberStyleArabic;
vWordApp.Selection.Sections.item(1).Footers.item(1).PageNumbers.HeadingLevelForChapter := 0;
vWordApp.Selection.Sections.item(1).Footers.item(1).PageNumbers.IncludeChapterNumber := False;
vWordApp.Selection.Sections.item(1).Footers.item(1).PageNumbers.ShowFirstPageNumber :=true;
vWordApp.Selection.Sections.item(1).Footers.item(1).PageNumbers.ChapterPageSeparator := wdSeparatorHyphen;
vWordApp.Selection.Sections.item(1).Footers.item(1).PageNumbers.RestartNumberingAtSection := true;  ;
//开始页码从9开始
vWordApp.Selection.Sections.item(1).Footers.item(1).PageNumbers.StartingNumber := 9;  end;程序执行不出错，但关于开始页码的设置却无效
请各位高手帮忙！

Answer 1

参考代码
  
  self.OleContainer1.DoVerb(ovShow);//在OleContainer1中显示word文档
  self.OleContainer1.OleObject.application.ActiveWindow.ActivePane.View.SeekView :=wdSeekCurrentPageFooter;//页脚获得焦点
  self.OleContainer1.OleObject.application.Selection.move(wdline,1);
  self.OleContainer1.OleObject.application.selection.insertafter('第9页');
  self.OleContainer1.OleObject.application.ActiveWindow.ActivePane.View.SeekView := wdSeekMainDocument;//正文获得焦点可以参照给出的具体方法
http://sq1228.javaeye.com/blog/196686