请教：如何在WORD中顺序插入多个表格？谢谢！(100分)

请教：如何在WORD中顺序插入多个表格？谢谢！

var
NewTable:OleVariant;
CurRange :Range ;
begin
CurRange := WordDocument1.Range.GoToNext(wdGoToLine) ;
WordDocument1.Range.Sentences.Last.InsertAfter('Table') ;
WordDocument1.Range.InsertParagraphAfter;
CurRange.Paragraphs.Alignment := wdAlignParagraphCenter;
NewTable := WordDocument1.Tables.Add(CurRange, 2, 5);
NewTable.Columns.Width := 60 ;
NewTable.Cell(1, 1).SetHeight(25, 2) ;
WordDocument1.Tables.Item(1).Select ;
WordDocument1.Range.Rows.Alignment := wdAlignParagraphCenter;
NewTable.Cell(1, 1).Range.Text := '第一部分' ;
NewTable.Cell(1, 2).Range.Text := '第二部分' ;
NewTable.Cell(1, 3).Range.Text := '第三部分' ;
NewTable.Cell(1, 4).Range.Text := '第四部分' ;
NewTable.Cell(1, 5).Range.Text := '第五部分' ;
end ;

已经能插入表格，问题是插入多个表格时，位置会重复，请问如何控制？

你加一个APPLICATION.PROGRESSMESSAGE
试试
我以前用VB这样好象时可以的，不过那时候是DOEVENTS

to cyf_00002:
应该和这个没有关系的，我是想问，插入多个表格时，它们的位置为什么会重叠？

var
NewTable:OleVariant;
CurRange :Range ;
begin
//CurRange := WordDocument1.Range.GoToNext(wdGoToLine) ;
WordDocument1.Paragraphs.Last.Range.InsertAfter('Table') ;
WordDocument1.Paragraphs.Last.Alignment:= wdAlignParagraphCenter;
WordDocument1.Range.InsertParagraphAfter;
//CurRange.Paragraphs.Alignment := wdAlignParagraphCenter;
NewTable := WordDocument1.Tables.Add(WordDocument1.Paragraphs.Last.Range, 2, 5);
//替换到最后
NewTable.Columns.Width := 60 ;
NewTable.Cell(1, 1).SetHeight(25, 2) ;
WordDocument1.Tables.Item(WordDocument1.Tables.Count).Select ; //这里始终是第一个表格,换掉
WordDocument1.Tables.Item(WordDocument1.Tables.Count).Range.Rows.Alignment := wdAlignParagraphCenter;
NewTable.Cell(1, 1).Range.Text := '第一部分' ;
NewTable.Cell(1, 2).Range.Text := '第二部分' ;
NewTable.Cell(1, 3).Range.Text := '第三部分' ;
NewTable.Cell(1, 4).Range.Text := '第四部分' ;
NewTable.Cell(1, 5).Range.Text := '第五部分' ;
end ;

谢谢 wk_knife， 问题已解决。。

接受答案了.