怎样合并word里的表格？？？在线急等之，高手请进……(20分)

有一四行四列的表格，我想把第一行全部合并成一个单元格，之后把这个单元格的上左右的单元格线给去掉，请高手指点…………分不够再加啦

var
word : OleVariant;
t : OleVariant;
begin
try
word := GetActiveOleObject('Word.Application');
except
word := CreateOleObject('Word.Application');
end;
word.Visible := True;
Word.Activate;
Word.documents.Add;
t := Word.ActiveDocument.Tables.Add(Word.Selection.Range, 4, 4);

t.Select;
Word.Selection.Cells.Borders.Item($FFFFFFFF).LineStyle := 1;
Word.Selection.Cells.Borders.Item($FFFFFFFE).LineStyle := 1;
Word.Selection.Cells.Borders.Item($FFFFFFFD).LineStyle := 1;
Word.Selection.Cells.Borders.Item($FFFFFFFC).LineStyle := 1;
Word.Selection.Cells.Borders.Item($FFFFFFFB).LineStyle := 1;
Word.Selection.Cells.Borders.Item($FFFFFFFA).LineStyle := 1;

//你需要的是下面的代码,Tables.Item(1)代表文档中的第一个表格
t := Word.ActiveDocument.Tables.Item(1);
t.Rows.Item(1).Select;
Word.Selection.Cells.Merge;
Word.Selection.Cells.Borders.Item($FFFFFFFF).LineStyle := 0;
Word.Selection.Cells.Borders.Item($FFFFFFFE).LineStyle := 0;
Word.Selection.Cells.Borders.Item($FFFFFFFC).LineStyle := 0;
end;

加分吧[]

只知道Excel这么写，Word就不知道了
ExcelApp.range[ExcelApp.cells[i+2,1],ExcelApp.cells[i+6,1]].select;
ExcelApp.range[ExcelApp.cells[i+2,1],ExcelApp.cells[i+6,1]].merge;

谢谢大家，谢谢“轻舞肥羊”

结贴！