关于WORD标题和表格(50分)

var
n,i,j:byte;
Pars: Paragraphs;
ARange: Range;
....
Pars := WordDocument1.Paragraphs;
n := pars.Get_Count;
Pars.Add(EmptyParam);
ARange := Pars.Item.Range;
ARange.Text := '题目';
n := n + 1;
Pars.Add(EmptyParam);
ARange := Pars.Item.Range;
ARange.Text := '题目111';
Pars.Add(EmptyParam);
n := n + 1;
ARange := Pars.Item.Range;
WordDocument1.Tables.Add(aRange, 2, 4, EmptyParam, EmptyParam);
for i := 1 to 2 do
begin
WordDocument1.Tables.Item(1).Cell(1, i).Width := 26;
WordDocument1.Tables.Item(1).Cell(2, i).Width := 26;
end;

搞定了，谢谢朋友们的热心帮助