調用MSWord2000.ActiveDocument.Tables.Add 多次会画一个表 ,我想画多个独立的表,不知道如何画呢? (50分)

下面的程序调用 MSWord2000.ActiveDocument.Tables.Add 多次会画一个表
我想画多个独立的表,不知道如何画呢
RowCount:=0;
ColCount:=9;
if(I<>0) then
MSWord2000.ActiveDocument.Tables.Add(Range:=MSWord2000.Selection.Range,
NumRows:=RowCount+1,
NumColumns:=ColCount,
DefaultTableBehavior:=1,
AutoFitBehavior:=1);

var
R : Word2000.Range;
Direction : OleVariant;

Range := WordApp.ActiveDocument.Content;
Direction := wdCollapseEnd ;
R.Collapse(Direction);
WordApp.ActiveDocument.Tables.Add(R,RowCount+1,ColCount,1,1);

to realLearning 已經可以了﹐但是如何在 WordApp.ActiveDocument.Tables.Add之前加入一下空行呢

R:=MSWord2000.ActiveDocument.Content;
Direction := wdCollapseEnd ;
MSWord2000.ActiveDocument.Range(Start:=0, End:=MSWord2000.ActiveDocument.Range.end).InsertParagraphAfter;
MSWord2000.ActiveDocument.Range.InsertAfter(ColumnTitle);
R.Collapse(Direction);
RowCount:=0;
ColCount:=9;
R:=MSWord2000.ActiveDocument.Content;
Direction := wdCollapseEnd ;
R.Collapse(Direction);




// MSWord2000.Selection.TypeText(Text:=ColumnTitle);
MSWord2000.ActiveDocument.Tables.Add(R,
NumRows:=RowCount+1,
NumColumns:=ColCount,
DefaultTableBehavior:=0,
AutoFitBehavior:=0);
// MSWord2000.ActiveDocument.Tables[I+1].Rows[1].Select();
MSWord2000.Selection.GoToNext(wdGoToTable);
搞定