Delphi向word文档中输出表格及图形

 

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

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

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

                  一个TWordFont组件,名称为WordFont1；

                  一个TWordApplication组件,名称为WordApplication1；

                  一个TWordDocument1组件,名称为Doc;

                  一鯰WordParagraphFormat组件,名称为ParaFmt；

                  一个TIMAGE组件，名称为IMAGE1； 

                  一个TBUTTON组件，名称为Button1；

  

                 

 

procedure TFrm_TravilRDXL.EnterText;//自定义函数

var

  S: Selection;

  MyFormat : Word;

 // Bitmap : TBitMap;

  AData :cardinal;

  APalette : hpalette;

 

begin

  S := WordApplication1.Selection;

  WordFont1.ConnectTo(S.Font);

 

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

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

 

  S.TypeParagraph;

 

  /