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;程序执行不出错,但关于开始页码的设置却无效
请各位高手帮忙!
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;程序执行不出错,但关于开始页码的设置却无效
请各位高手帮忙!
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;//正文获得焦点