如何在delphi中向word插入表格及数据

[gsoft]

如何在delphi中向word插入表格及数据?
现在需要向word文档中,插入多张已有固定格式的表格,并在表格中输入数据?

[gsoft]

帮忙呀,大侠

[楚人无衣]

FWordApp, FWordDoc, FTable: OleVariant;
...
try
FWordApp := GetActiveOleObject('Word.Application');
except
try
FWordApp := CreateOleObject('Word.Application');
except
//没装Word
Exit;
end;
end;
FWordDoc := FWordDoc := FWordApp.Documents.Add;
...
//插入表格
FTable := FWordDoc.Tables.Add(FWordDoc.Range, 1, 1);
FTable .Cell(1, 1).Range.Text := '表格内容';
...
可看Delphi安装目录下Ocx\Servers下的Word相关单元及Word中的VBA部分

[gsoft]

楼上,谢谢!
我现在可以插入表格了,但是表格的边框总是灰的,边框颜色使用哪个属性设置?

[楚人无衣]

  FTable.Borders.InsideLineStyle := wdLineStyleSingle;
  FTable.Borders.OutsideLineStyle := wdLineStyleSingle;
  FTable.Borders.InsideColorIndex := wdBlack;
  FTable.Borders.OutsideColorIndex := wdBlack;

去Ocx\Servers看那些文件，或者用TWordApplication\TWordDocument等试