关于数据库的数据导入到WORD的问题

Question

我想将数据库里的数据导入到WORD中。
数据库里的记录都是7位数的数字，可能是成百上千。
我希望导入到WORD中后，在WORD里这些记录不是象数据库中排列的一样，只是从上到下排列
而是要将这些数字象是重新排版一样，将整个页添满后再添下一页。
 导入到WORD中就象这样 4567345  4365724 5658805
 3455376  4680232 7680389
 3215800  5760905 4680447
 3576824  6580323 6800334

Answer 1

参考
导出DBGrid为Word表格。procedure TForm1.Button1Click(Sender: TObject);
var
  WordApp,WordDoc,WordTable:OleVariant;
  i,j:integer;
begin
  WordApp:=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 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;
end;

Answer 2

用Delphi 画表格，表格的边框是白色就行了