如何用delphi向Word文档的表格中填写数据？

[superwjqq]

delphi中tables的属性非常少，如何向Word文档的表格中一格一格的填写数据

[deldelmeme979]

试试下面的代码吧：

uses
ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
WDapp:Variant;
WDDoc:Variant;
m_tb:Variant;
begin
WDapp:=CreateOleObject('Word.application');
WDapp.visible:=true;
WDapp.Documents.Open('E:\TestDoc.doc');　'打开一篇有表格的文档
　　　　　　　　　　　　　　　　　　　　　 '当然，你也可以自己创建它

WDDoc:=WDapp.ActiveDocument;
m_tb:=WDDoc.Tables.Item(1);　'取得第一个表格对象
m_tb.Cell(1,1).Range.InsertAfter('Delphi');　'改变第一行第一列内容

end;

[nc_lyj]

很好，Table的属性很多，想如何操作都可以的。

[simonzone]

up

[nc_lyj]

有很多属性 Application.Tables...,用一下VBA写一段，然后转成Delphi代码就可以了。