delphi word移出表格的问题 ( 积分: 100 )

我用的是ＤＥＬＰＨＩ７，ＷＯＲＤ２００３．
程序里要写很多个表格在ＷＯＲＤ中，
部分程序代码如下：
wortable:=doc.Tables.Add(app.Selection.Range,6,6,EmptyParam,EmptyParam) ; with wortable do begin
cell(1,1).range.text:='项目名称';
cell(1,2).range.text:='单位情况';
cell(1,3).range.text:='申请人';
cell(1,4).range.text:='电话';
cell(1,5).range.text:='签字';
end;
Unit_:=wdLine;
Extend:=wdExtend;
hh:=6;
wortable.Cell(6,6).range.select;
app.Selection.MoveDown(Unit_,hh,Extend);
S.TypeParagraph;
／／以下是新增另一个表格

２个表格倒都是新增了，但是第一个表格却只有５行了，最后一行被删除掉了．
而且如果把wortable.Cell(6,6).range.select;这句话去掉的话，光标根本不会往下走
我看网上很多文章上都是没有这句话的，不知道他们是怎么跑起来的，
请各位高手帮忙啊

ole方法控制word比较灵活 参考： http://www.delphibbs.com/delphibbs/dispq.asp?lid=737517

参考：http://www.delphibbs.com/delphibbs/dispq.asp?lid=2203481 中RaisingRain的帖子，如果还不清楚请把需求帖出来给你demo，或自己在离线包中查关键字“word 插入表格”

接受答案了.