Selection.Cells (Word)

Devuelve una colección Cells que representa las celdas de tabla en una selección.

Para obtener información sobre cómo devolver un solo miembro de una colección, vea devolver un objeto de una colección.

If Selection.Information(wdWithInTable) = True Then 
 Selection.Cells(1).Shading.BackgroundPatternColorIndex = wdRed 
Else 
 MsgBox "The insertion point is not in a table." 
End If