Poner los bordes en una tabla con TWordApplication

[[Al González]]

Empezado por Mizosok

Pero en este caso lo que no sé es a quien pertenecen un grupo de propiedades tales como Style, ApplyStyleHeadingRows, ApplyStyleLastRow [...]

Sub Macro5()
'
' Macro5 Macro
'
'
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=4, NumColumns:= _
        5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    With Selection.Tables(1)
         If .Style <> "Tabla con cuadrícula" Then
            .Style = "Tabla con cuadrícula"
         End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = False
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = False
        .ApplyStyleRowBands = True
        .ApplyStyleColumnBands = False
    End With
End Sub

Según se aprecia, esas propiedades (las que comienzan con un punto) pertenecen al objeto indicado en el "With", es decir, son propiedades de "Selection.Tables(1)".