如何将将DBGRID中的数据以表格的形式导入到WORD中(现在分不够,一定加)(7分)

请教精通OLE的大虾们,如何用OLE将DBGRID中的数据以表格的形式导入到WORD中(在WORD文档中以表格形式存在).
如何操纵!
有实例最好!
现在分不够,以后一定加啊 !!!

WordTable:=WordDoc.Tables.Add(WordApp.Selection.Range,DBGrid1.DataSource.DataSet.RecordCount+1,DBGrid1.Columns.Count);
for i:=1 to DBGrid1.Columns.Count do
WordTable.Cell(1,i).Range.InsertAfter(DBGrid1.Columns[i-1].Title.Caption);
i:=2;

with DBGrid1.DataSource.DataSet do
while not eof do
begin
for j:=1 to DBGrid1.Columns.Count do
WordTable.Cell(i,j).Range.InsertAfter(DBGrid1.Columns[j-1].Field.Value);
Next;
Inc(i);
end;

请教noah，因何程序执行到"wordtable1.Cell(i,j).Range.InsertAfter(DBGrid1.Columns[j-1].Field.Value);"时出错，显示错误信息：raised exception class Eaccessviolation with message 'access violation '。
请指教。谢谢！

接受答案了.