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

   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