Hi Tinfanide,
This is easiest if you assign the new table to a variable:
Code:
Sub AddTable()
Dim oTbl
With ActiveDocument
Set oTbl = .Tables.Add(Range:=Selection.Range, NumRows:=3, _
NumColumns:=3, DefaultTableBehavior:=wdWord8TableBehavior)
With oTbl
.Borders(wdBorderTop).LineStyle = wdLineStyleSingle
.Borders(wdBorderLeft).LineStyle = wdLineStyleSingle
.Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
.Borders(wdBorderRight).LineStyle = wdLineStyleSingle
.Borders(wdBorderHorizontal).LineStyle = wdLineStyleSingle
.Borders(wdBorderVertical).LineStyle = wdLineStyleSingle
.Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleSingle
.Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleSingle
End With
End With
Set oTbl = Nothing
End Sub