VBA Word Table - Adding borders

Question

I have used the following VBA code to create a table in a Word document ...

Dim oCell As Word.Range

Dim oTable As Word.Table

Set oTable = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=2, NumColumns:=2)

Set oCell = oTable.Cell(1, 1).Range

oCell.End = oCell.End - 1

oCell.Fields.Add oCell, Type:=wdFieldDocVariable, Text:="""Name01""", PreserveFormatting:=False

This works OK.

How do I place borders around the cells and set the font to be Arial size 10?

Thanks in anticipation.

Answer 1

Add this code to your macro:

    With oTable.Borders

        .InsideColor = wdColorAutomatic

        .InsideLineStyle = wdLineStyleSingle

        .OutsideColor = wdColorAutomatic

        .OutsideLineStyle = wdLineStyleSingle

    End With

    With oTable.Range.Font

        .Name = "Arial"

        .Size = 10

    End With

Answer 2

Thank you.