object that represents the right border for a specified table cell.
expression.BorderRight
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example creates a checkerboard design using borders and a fill color with an existing table. This assumes the first shape on page two is a table and not another type of shape and that the table has an uneven number of columns.
Sub FillCellsByRow()
Dim shpTable As Shape
Dim rowTable As Row
Dim celTable As Cell
Dim intCell As Integer
intCell = 1
Set shpTable = ActiveDocument.Pages(2).Shapes(1)
For Each rowTable In shpTable.Table.Rows
For Each celTable In rowTable.Cells
With celTable
With .BorderBottom
.Weight = 2
.Color.RGB = RGB(Red:=0, Green:=0, Blue:=0)
End With
With .BorderTop
.Weight = 2
.Color.RGB = RGB(Red:=0, Green:=0, Blue:=0)
End With
With .BorderLeft
.Weight = 2
.Color.RGB = RGB(Red:=0, Green:=0, Blue:=0)
End With
With .BorderRight
.Weight = 2
.Color.RGB = RGB(Red:=0, Green:=0, Blue:=0)
End With
End With
If intCell Mod 2 = 0 Then
celTable.Fill.ForeColor.RGB = RGB _
(Red:=180, Green:=180, Blue:=180)
Else
celTable.Fill.ForeColor.RGB = RGB _
(Red:=255, Green:=255, Blue:=255)
End If
intCell = intCell + 1
Next celTable
Next rowTable
End Sub