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.
