导出DBGrid到Word !!!

Question

(*
功能：dbgrid数据导出到word。
要求：速度要快！因为数据比较多，至少10000条吧！
//=======================================
  导出DBGrid到Word    
    
导出DBGrid为Word表格。procedure TForm1.Button1Click(Sender: TObject);varWordApp,WordDoc,WordTable:OleVariant;i,j:integer;beginWordApp:=CreateOleObject('Word.Application');WordApp.Visible:=True;WordDoc:=WordApp.Documents.Add;WordTable:=WordDoc.Tables.Add(WordApp.Selection.Range,DBGrid1.DataSource.DataSet.RecordCount+1,DBGrid1.Columns.Count);for i:=1 to DBGrid1.Columns.Count doWordTable.Cell(1,i).Range.InsertAfter(DBGrid1.Columns[i-1].Title.Caption);i:=2;with DBGrid1.DataSource.DataSet dowhile not eof dobeginfor j:=1 to DBGrid1.Columns.Count doWordTable.Cell(i,j).Range.InsertAfter(DBGrid1.Columns[j-1].Field.Value);Next;Inc(i);end;end;
///////============================== 
///////==============================   
///////==============================
上面的方法是猛料上的， 缺点是速度太慢！谢谢大家的帮忙！
*)

Answer 1

http://search.csdn.net/Expert/topic/2008/2008080.xml?temp=.718548

Answer 2

wApp.Selection.GoTo（What:=wdGoToBook,Name:='KS'）//定义一个书签 标志开始位置
while not ADOQ then
 begin
   wApp.selection.typetext(text:=ADOQ.FieldByName('ry_name').AsString);
   wApp.selection.moveright(Unit:=wdCharacter);
 end;这个应该快一点。