Question

如何用DELPHI中的WORD控件

Answer 1

WordRange:=WordDocument1.Range(aTemp,Position_b);
vNumRows:=ADOQuery1.RecordCount;
vNumColumns:=ADOQuery1.FieldCount;
WordDocument1.Tables.AddOld(WordRange,vNumRows,vNumColumns);
WordTable:=WordDocument1.Tables.Item(item);

T:=WordTable;
WordTable:=nil;

WordRange:=nil;
vNumRows:=NULL(); { NULL() is in unit Variant }
vNumColumns:=NULL();
ADOQuery1.First; {向表格插入数据库记耐举裂录}
i:=1;
while not ADOQuery1.Eof do
begin
j:=0;
while j begin
T.cell(i,j+1).range.text:=ADOQuery1.Fields[j].AsString;
inc(j);
end;
inc(i);
ADOQuery1.Next;
end;
---------------------------------------------------------------

在Word中用宏来画表格，然后把它的语句copy下答衫来！
在Delphi的OLE中调用就可以了！昌闭