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