Shading Property Example

This example applies yellow shading to the first paragraph in the selection.

With Selection.Paragraphs(1).Shading
    .Texture = wdTexture12Pt5Percent
    .BackgroundPatternColorIndex = wdYellow
    .ForegroundPatternColorIndex = wdBlack
End With

This example applies horizontal line texture to the first row in table one.

If ActiveDocument.Tables.Count >= 1 Then
    With ActiveDocument.Tables(1).Rows(1).Shading
        .Texture = wdTextureHorizontal
    End With
End If

This example applies 10 percent shading to the first word in the active document.

ActiveDocument.Words(1).Shading.Texture = wdTexture10Percent