Delphi7.0读入数据到DBGrid并向Word中插入表格，其实就是Delphi向Word中插入表格，测试数据由Delphi从SQLSERVER中读取，然后放入DBGrid中，再将DBGrid网格中的数据通过Word转换成表格。
begin
if TStringGrid(DBGrid1).RowCount>0 then
begin
//创建一个word对象
wordApp:=CreateOleObject('Word.Application');
wordApp.Visible:=true;
//创建一个word文档
wordDoc:=wordApp.Documents.Add();
wordDoc.Select;
wrdSelection:=wordApp.selection;
//创建一个表格
wordDoc.Tables.Add(wrdSelection.Range,ADOQuery1.RecordCount 1,DBGrid1.FieldCount,2,0);
for i:=1 to DBGrid1.FieldCount do //设置首行的字体为粗体
begin
wordDoc.Tables.Item(1).Cell(1,i).Range.Bold:=true;
wordDoc.Tables.Item(1).Cell(1,i).Range.InsertAfter(DBGrid1.Columns[i-1].Field.FieldName);
end;
DBGrid1.DataSource.DataSet.First; //当前行为首行
for y:=2 to ADOQuery1.RecordCount 1 do //向表中添加数据
begin
for i:=1 to DBGrid1.FieldCount do
wordDoc.Tables.Item(1).Cell(y,i).Range.InsertAfter(DbGrid1.Fields[i-1].NewValue);
DBGrid1.DataSource.DataSet.Next; //下一行
end;
end
else
showmessage('TDBGrid表中无数据，不能向Word中插入表格。')
end;
