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

关键字：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;

原文转自：http://www.ltesting.net