Row Property Example

This example applies shading to the table row that contains the insertion point.

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