我怎么样向word中多次插入表格？？

Question

用WORD录制宏，把代码转换成DELPHI即可

Answer 1

VAR
  WordParagraph,WordApp,WordRange : olevariants;  WordParagraph := WordApp.activedocument.paragraphs.add;
  WordRange := WordParagraph.range;
  WordRange := WordApp.ActiveDocument.Content;
  WordRange.Collapse(wdCollapseEnd);
  WordTable:= WordApp.activedocument.tables.add(WordRange,5,5);要多次插入表格，每一次加入这段代码即可

Answer 2

WordRange:=WordDocument1.Range(aTemp,Position_b);
  vNumRows:=ADOQuery1.RecordCount+1;
  vNumColumns:=ADOQuery1.FieldCount;
  WordDocument1.Tables.AddOld(WordRange,vNumRows,vNumColumns);
  WordTable:=WordDocument1.Tables.Item(item);
最后一行的item从0开始。
0就是第一个表格，1是第二个,..............