BorderLeft Property

object that represents the left border for a specified table cell.

expression.BorderLeft

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