Delphi和Office程序开发

领测软件测试网

wordfont.bold:=1;


wordfont.italic:=1;........................


worddocument1.pagesetup.headerdistance:=1.5; //设置页边距


worddocument1.pagesetup.footerdistance:=1.75;


//设置页眉页脚 


worddocument1.activewindow.activepane.view.seekview:=wdseekcurrentpagefooter; worddocument1.activewindow.activepane.selection.insertafter(第 inttostr(wdfieldnumpages) 页);


//让页脚向右靠齐


worddocument1.activewindow.activepane.selection.paragraphformat.alignment:=wdalignparagraphright;


..............................

文章来源于领测软件测试网 https://www.ltesting.net/