生活已是百般艰难,为何不努力一点。下面图老师就给大家分享如何在delphi5中实现对word文档页眉的设置?,希望可以让热爱学习的朋友们体会到设计的小小的乐趣。
【 tulaoshi.com - 编程语言 】
我这有一个对当前页面的设置代码
(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)var
mmm,nnn,aaa:OleVariant;
begin
mmm:=wdLine;
nnn:=1;
aaa:=wdFieldPage;
WordApp.ActiveWindow.ActivePane.View.SeekView :=wdSeekCurrentPageHeader ;
WordApp.Selection.Move(mmm,nnn);
WordApp.Selection.ParagraphFormat.Alignment := wdAlignParagraphCenter;
WordApp.Selection.InsertAfter('第');
mmm:=wdCharacter;
WordApp.Selection.Move(mmm,nnn);
WordApp.Selection.Fields.Add(WordApp.Selection.Range,aaa,mmm,nnn);
aaa:=wdFieldNumPages;
WordApp.Selection.InsertAfter('页/第');
WordApp.Selection.Move(mmm,nnn);
WordApp.Selection.Fields.Add(WordApp.Selection.Range,aaa,mmm,nnn);
WordApp.Selection.InsertAfter('页');
WordApp.ActiveWindow.ActivePane.View.SeekView := wdSeekMainDocument;
end;
可是只能修改第一页的,怎么修改后面的页面的页眉?
(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)来源:http://www.tulaoshi.com/n/20160219/1621252.html
看过《如何在delphi5中实现对word文档页眉的设置?》的人还看了以下文章 更多>>