如何去掉表格的边框(50分)

现在想要把报表直接输出到word中，只有横线，不要竖线，我在word文档中添加了table，然后录制了一段设置表格边框的宏，修改成delphi后如下：

procedure TForm1.Button2Click(Sender: TObject);
var
MyDocName : OleVariant;
MyDoc,wTable,MyBorder : OleVariant;
begin
WordApp.Connect;
WordApp.Visible := True;

MyDoc := WordApp.Documents.Add(EmptyParam,EmptyParam);
MyDoc.Tables.Add(WordApp.Selection.Range,2,5);

wTable := MyDoc.Tables.Item(1) ;
wTable.Borders(wdBorderRight).LineStyle := wdLineStyleNone;
//运行到这里出错信息为：borders不是一个方法
WordApp.Disconnect;
end;

请问该怎么写呢？

没人可以帮我吗？

MyBorder:=wTable.Borders(wdBorderRight);// MyBorder:=wTable.Borders[wdBorderRight];
MyBorder.LineStyle := wdLineStyleNone;
实验一下，使用OleVariant中转一下，应该可以的。

for Servers:
WordDocument1.Tables.Item(1).Borders.Item(wdBorderVertical).Linestyle:=wdLineStyleNone;
WordDocument1.Tables.Item(1).Borders.Item(wdBorderRight).Linestyle:=wdLineStyleNone;
WordDocument1.Tables.Item(1).Borders.Item(wdBorderLeft).Linestyle:=wdLineStyleNone;

学习

MyTable:=WordApplication1.ActiveDocument.Tables.Add(WordApplication1.Selection.Range,5,4,EmptyParam,EmptyParam);
MyTable.Borders.OutsideLineStyle :=wdLineStyleNone;
MyTable.Borders.Item(1).LineStyle :=wdLineStyleSingle;
MyTable.Borders.Item(3).LineStyle :=wdLineStyleSingle;

差不多 竖线 可以选择表的列边框 设属性 去掉 1，3 是横线 2，4是竖线

用servers 里的控件多好 有提示错误

多人接受答案了。