向word文档中输出表格及图形[4]

[入库:2005年8月18日] [更新:2007年3月24日]

本文简介:选择自 free_card 的 blog

    wordfont1.size := 18;

    wordfont1.name := 'arial';

    wordfont1.bold := integer(true);

    wordfont1.colorindex:=5;   //粉红色字体

 

  //--------------------------设置段落2属性-------------------//

    parafmt.connectto(doc.paragraphs.item(2).format);

    //绑定wordfont1doc.paragraphs.item(1).range.font

 

    wordfont1.connectto(doc.paragraphs.item(2).range.font);

    //设置段落对齐方式

    parafmt.alignment := wdalignparagraphcenter;

    //设置段落行距(磅)

    parafmt.spaceafter := 12;

    wordfont1.size := 18;

    wordfont1.name := 'arial';

 

end;

 

 

procedure tfrm_travilrdxl.button1click(sender: tobject);

var

  i,j:integer;

begin

    i:=2;//初始化

    j:=1;

 

  wordapplication1.connect;

 

   doc.connectto(wordapplication1.documents.add(emptyparam, emptyparam));

   wordapplication1.visible := true;//显示word文档

 

本文关键:数据库,Word,OLE
 

本站最佳浏览方式为 分辨率 1024x768 IE 6.0(或更高版本的 IE浏览器)

go top