procedure
TfrmMain
.
GoToWord(Sender: TObject);
var
W, Table: Variant;
i, j:
Integer
;
begin
W := CreateOleObject(
'Word.Application'
);
W
.
Documents
.
Add;
W
.
ActiveDocument
.
Tables
.
Add(W
.
ActiveDocument
.
Range,
dbgrMain
.
DataSource
.
DataSet
.
RecordCount, dbgrMain
.
DataSource
.
DataSet
.
FieldCount);
Table := W
.
ActiveDocument
.
Tables
.
Item(
1
);
Table
.
Style :=
'Сетка таблицы'
;
dbgrMain
.
DataSource
.
DataSet
.
First;
for
i :=
0
to
dbgrMain
.
DataSource
.
DataSet
.
RecordCount-
1
do
begin
for
j :=
0
to
dbgrMain
.
DataSource
.
DataSet
.
FieldCount -
1
do
Table
.
Cell(i+
1
,j+
1
).Range
.
InsertBefore(dbgrMain
.
DataSource
.
DataSet
.
Fields[j].AsString);
dbgrMain
.
DataSource
.
DataSet
.
Next;
end
;
W
.
Visible :=
True
;
end
;