unit DbgridToWord; interface uses? SysUtils,ComObj,DBGrids; implementation Function DBGirdToWord(DBGrid: TDBGrid): Boolean;var? Count,I,J:Integer;? Doc:OleVariant;? CurrColumn,RecordNum:Integer;? wTable: Variant;begin? try??? Doc:=CreateOleObject('Word.Application');??? Doc.Visible:=True;??? Doc.Documents.Add;? except??? Result:=false;??? Exit;? end;? Count:=DBGrid.Columns.Count-1;??? ? CurrColumn:=0;? for I:=0 to Count do? begin??? if DBGrid.Columns.Items[I].Visible then???? //略過visible=false的column??? begin????? Inc(CurrColumn);??? end;? end;? RecordNum:=DBGrid.DataSource.DataSet.RecordCount+1;? wTable:=Doc.ActiveDocument.Tables.Add(Doc.ActiveDocument.Range(0, 0),RecordNum,CurrColumn);? wTable.Columns.AutoFit;? CurrColumn:=0;? for I:=0 to Count do? begin??? if DBGrid.Columns.Items[I].Visible then??? begin????? wTable.Cell(1,CurrColumn+1).Range.InsertAfter(DBGrid.Columns.Items[I].Title.Caption);????? Inc(CurrColumn);??? end;? end;? J:=1;? DBGrid.DataSource.DataSet.First;? while not DBGrid.DataSource.DataSet.Eof do? begin??? Inc(J);??? CurrColumn:=0;??? for I:=0 to Count do??? begin????? if DBGrid.Columns.Items[I].Visible then????? begin??????? wTable.Cell(J,CurrColumn+1).Range.InsertAfter(DBGrid.Columns[I].Field.DisplayText);??????? Inc(CurrColumn);????? end;??? end;??? DBGrid.DataSource.DataSet.Next;? end;end; end.

Dbgrid導出為word