Range.Shading (Word)

Retorna um objeto Shading referente à formatação de sombreamento do objeto especificado.

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