请教：在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.Paragraphs.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 ;

问题解决。
WordDocument1.Range.Rows.Alignment := wdAlignParagraphCenter;

可是分数怎么办？
大家谈谈一些比较有用的有关WORD操作的方法吧。谢谢！

加給我吧, 呵呵
也可以獨立控制每個單元格的
with WordDocument.Tables.Item(TableIndex).Cell(Row,Column).Range do
// posStart := Get_End_ - 1;
// InsertAfter(sText);
// posEnd := Get_End_;
Paragraphs.Get_Last.Alignment := Alignment;
end;

好好学习

接受答案了.