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

      doc.tables.item(1).cell(i,1).range.text:=adoquery1.fieldbyname('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;

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