求Word表格单元拆分后的单元格赋值算法， 谢谢 ( 积分: 200 )

1、Delphi程序中向Word文件中添加一个表格
2、拆分表格中的某个单元
3、循环对所有单元格赋值 －－－－这一步怎么做呢？？？
程序：
var R, C: integer;
i,j: integer;
Table: variant;
begin
WordApp := CreateOleObject('Word.Application');
WordApp.Visible := true;
WordDoc:=wordApp.Documents.Add();
WrdSelection := WordApp.Selection;
WordDoc.Tables.Add(WrdSelection.Range,3,5,2,0); //3 row, 5 columns

R := 3;
C := 4;
Table:= WordDoc.Tables.Item(1);
Table.cell(2,3).Split(R,C); //还要考虑在第一行的有个单元格拆分 Table.cell(1,2).Split(R,C);
for i:= 1 to Table.Rows.count+R-1 do
for j:=1 to Table.Columns.count+C-1 do
begin
//Table.Cell(i,j).Range.Text:= inttostr(i) + ',' + inttostr(j); 拆分后单元格阵列发生变化

end;
end;
请问怎么循环赋值给所有的单元格阿？有点急，麻烦大家了
算法要通用， 可能对多个单元格进行拆分 [?][?][?]

1、Delphi程序中向Word文件中添加一个表格
2、拆分表格中的某个单元
3、循环对所有单元格赋值 －－－－这一步怎么做呢？？？
程序：
var R, C: integer;
i,j: integer;
Table: variant;
begin
WordApp := CreateOleObject('Word.Application');
WordApp.Visible := true;
WordDoc:=wordApp.Documents.Add();
WrdSelection := WordApp.Selection;
WordDoc.Tables.Add(WrdSelection.Range,3,5,2,0); //3 row, 5 columns

R := 3;
C := 4;
Table:= WordDoc.Tables.Item(1);
Table.cell(2,3).Split(R,C); //还要考虑在第一行的有个单元格拆分 Table.cell(1,2).Split(R,C);
for i:= 1 to Table.Rows.count+R-1 do
for j:=1 to Table.Columns.count+C-1 do
begin
//Table.Cell(i,j).Range.Text:= inttostr(i) + ',' + inttostr(j); 拆分后单元格阵列发生变化

end;
end;
请问怎么循环赋值给所有的单元格阿？有点急，麻烦大家了
算法要通用， 可能对多个单元格进行拆分 [?][?][?]

怎么都没人回答呢？ 这么多高手跑哪里去了阿