Delphi向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:=’毛利润’;

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