求助：delphi xe3 如何调用WORD模板 内 表格插入一新行？？急

Question

1、我用CreateOleObject 调用 WORF 模板-成功！2、我用VBA宏录制：插入表格  
  FDoc.WordApplication.Selection.insertrows(1);提示 WordApplication错误！3、用ADD的方法增加表格行数也是失败
WordApplication.Selection.Tables.Item(1).Add(WordApplication.Selection.Range,2,1,EmptyParam,EmptyParam);谢谢大侠门！！！！

Answer 1

var
  WordApp:OleVariant;
begin
  wordApp:=CreateOleObject('word.application');
  wordapp.visible:=true;
  wordapp.documents.open('C:\Users\lenovo\Desktop\北京.doc');  //插入2行 2列表格
  WordApp.activeDocument.tables.add(WordApp.selection.range,2,2,wdWord9TableBehavior);//wdWord9TableBehavior=1 自动调整表格
  //在第一行前加入一行
  WordApp.activeDocument.tables.item(1).rows.add(WordApp.activeDocument.tables.item(1).rows.item(1));
end;
亲测可行
楼主方法都是找对了，但是参数代错了啊

Answer 2

我曾经弄过这事，可以自动生成word并且往里面填文字和表格
当时好像是先到word里面查看源码，源码是VB的，
然后自己把源码转换成Delphi的

Answer 3

建议使用富文体格式修改，再转回Word。