向word文档中输出表格及图形 (转)[@more@] 

工作中遇到一个开发项目，该项目要求将相关数据报表存为格式文档（涉及表格、图形的输出），便于修改。

本人在开发过程中，发现此类资料较少，且介绍相对简单，大多只是文本数据的的简单输出。现将个人摸索出的一些方法及心得体会告诉大家，以求共同探讨，共同提高！

 :namespace prefix = o ns = "urn:schemas--com::office" />

form上放置以下：一个Tadoquery，名称为ADOQuery1；

  一个TWordFont组件,名称为WordFont1；

  一个TWordApplication组件,名称为WordApplication1；

  一个TWordDocument1组件,名称为Doc;

  一个TWordParagraphFormat组件,名称为ParaFmt；

  一个TIMAGE组件，名称为IMAGE1； 

  一个TBUTTON组件，名称为Button1；

 

 

 

procedure TFrm_TravilRDXL.EnterText;//自定义

var

  S: ion;

  MyFormat : Word;

 // Bitmap : TBitMap;

  AData :cardinal;

  APalette : hpalette;

 

begin

  S := WordApplication1.Selection;

  WordFont1.ConnectTo(S.Font);

 

  S.TypeText('甘肃省兰州市旅游管理局热点线路统计表');

  //加回车键,形成第一个段落：Doc.Paragraphs.Item(1)

 

  S.TypeParagraph;

 

  //输入文字

  S.TypeText(txt_DateFrom.Text+'至'+txt_DateTo.text);

  //加回车键,形成第二个段落：Doc.Paragraphs.Item(2)

  S.TypeParagraph;

 

  S.TypeText('使用部门：'+'销售部'+#13);

  S.TypeText('时间范围：'+'2002-8-8至2002-8-28'+#13 );

  S.TypeText('线路类型：'+'团体线'+#13);

  s.TypeText('线路等级：'+'豪华线'+#13);

  //加回车键,形成第三个段落：Doc.Paragraphs.Item(3)

  S.TypeParagraph;

 

 

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

  ParaFmt.ConnectTo(Doc.Paragraphs.Item(1).Format);

  //绑定WordFont1与Doc.Paragraphs.Item(1).Range.Font

 

  WordFont1.ConnectTo(Doc.Paragraphs.Item(1).Range.Font);

  //设置段落对齐方式

  ParaFmt.Alignment := wdAlignParagraphCenter;

  //设置段落行距（磅）

  ParaFmt.SpaceAfter := 24;

 

  //画单水平线

  ParaFmt.Borders.Item(3).LineStyle := wdLineStyleSingle;

  WordFont1.Size := 18;

  WordFont1.Name := 'Arial';

  WordFont1.Bold := integer(True);

  WordFont1.ColorIndex:=5;  //粉红色字体

 

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

  ParaFmt.ConnectTo(Doc.Paragraphs.Item(2).Format);

  //绑定WordFont1与Doc.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: T);

var

  i,j:integer;

begin

  i:=2;//初始化

  j:=1;

 

  WordApplication1.Connect;

 

  Doc.ConnectTo(WordApplication1.Documents.Add(EmptyParam, EmptyParam));

  WordApplication1.Visible := True;//显示word文档

 

  EnterText;//自定义函数---添加文本

 

 

  WordApplication1.Selection.SetRange(100,100);//设定段落范围

 

 

  doc.Tables.Add(WordApplication1.Selection.Range,ADOQuery1.RecordCount+1,5);//创建表格

 

  doc.Tables.Item(1).Columns.Item(1).Width:=120;//设定第一列宽度

 

//--------------------------设定第一列字体属性-----------------------//

 

  while j<6 do begin

  doc.Tables.item(1).cell(1,j).Range.Bold:=integer(true);

  WordFont1.ConnectTo(doc.Tables.item(1).cell(1,j).Range.Font);

  WordFont1.ColorIndex:=10;

  j:=j+1;

  end;

//--------------------------向表格中添加数据----------------------------------------//

  doc.Tables.Item(1).Cell(1,1).Range.Text:='线路名称';

  doc.Tables.Item(1).cell(1,2).Range.text:='人数';

  doc.Tables.item(1).cell(1,3).Range.text:='销售额（元）';

  doc.Tables.item(1).cell(1,4).Range.text:='毛利润';

  doc.Tables.Item(1).cell(1,5).Range.text:='毛利润率';

  while not ADOQuery1.Eof do begin

 

  doc.Tables.Item(1).Cell(i,1).Range.Text:=ADOQuery1.fielyname('linename').asstring;

  doc.Tables.Item(1).cell(i,2).Range.text:=ADOQuery1.Fieldbyname('STUFFNUM').asstring;

  doc.Tables.Item(1).cell(i,3).Range.text:=ADOQuery1.Fieldbyname('TOTALACCOUNT').asstring;

  doc.Tables.Item(1).cell(i,4).Range.text:=ADOQuery1.Fieldbyname('TOTAL').asstring;

  doc.Tables.Item(1).cell(i,5).Range.text:=ADOQuery1.Fieldbyname('ration').asstring;

  ADOQuery1.Next;

  i:=i+1;

 

  end;

 

//----------------------------------------------------------------------//

 

  WordApplication1.Selection.SetRange(350,350);//设定段落范围

  ParaFmt.ConnectTo(WordApplication1.Selection.Paragraphs.item(1).Format);

  ParaFmt.Borders.Item(3).ColorIndex:=6;

  ParaFmt.Borders.Item(3).LineStyle:=wdLineStyleSingle;//画底线

 

//-----------设置段落字体----------------------------------------//

  WordFont1.ConnectTo(WordApplication1.Selection.Paragraphs.Item(1).Range.Font);

  WordFont1.Bold:=integer(true);

  WordFont1.Size:=16;

 

 //-----------------------------粘贴图形-------------------------//

  Image1.Picture.SaveToClipboardFormat(MyFormat,AData,APalette);

  Clipboard.SetAsHandle(MyFormat,AData);

  doc.Sentences.Last.Paste;

 

 

//--------------------------插入记录-------------------------------------//

  doc.Range.InsertAfter(#13+'操作员:'+ G_username);//G_username为全局变量

 

 

end; 

 

以上有不足之处，望给予批评指正，本人E-：

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10748419/viewspace-976155/，如需转载，请注明出处，否则将追究法律责任。