如何把控制word中的表格

Question

我用wordApp控件可以向word的一个表格中写入数据，但是怎么才能添加表格的行数和列数因为我要写入的东西是从数据库读出的，每次的记录个数都不一样，所以表格要求是动态的

Answer 1

var
  v: variant
begin
  v := CreateObject('Word.Application.8');
  v.Visible := true;
  v.... //使用VBA, 具体见Word VBA的帮助
end; 
var
  Word, Doc, Table: OleVariant;
begin
  { 创建Word对象并运行Word }
  Word := CreateOleObject('word.application');  Word.Visible := true;        { 使Word可见 }
  Doc := Word.ActiveDocument;  { 取Word中当前的活动文档 }
  Table := Doc.Tables.Item(1); { 取Doc中的第一个表格 }  { 在Table的第1行第1列填入文字'Hello' }
  Table.Cell(1, 1).Range.Text := 'Hello';
...用如下方法创建一表格(10x4):var Doc:OleVariant;
begin
  Doc:=CreateOleObject('Word.Application');
  Doc.Visible:=True;
  Doc.Documents.Add;
  Doc.ActiveDocument.Tables.Add(Doc.ActiveDocument.Range(0, 0),10,4);
end;

Answer 2

Doc.ActiveDocument.Tables.Add(Doc.ActiveDocument.Range(0, 0),10,4);
编译不过去呀