[archive] translation vb to cobol - word table

[Migrated content. Thread originally posted on 02 April 2009]


I am trying to translate the following:
To add the table is no problem but I want to disable the vertical lines.
Can someone help me please.

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
With Selection.Tables(1)
If .Style <> "Tabelraster" Then
.Style = "Tabelraster"
End If
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = False
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = False
.ApplyStyleRowBands = True
.ApplyStyleColumnBands = False
End With

Selection.Borders(wdBorderVertical).LineStyle = wdLineStyleNone