Selection.Shading (Word)

Retorna um objeto Shading referente à formatação de sombreamento da seleção especificada.

Dim shdShading As Shading
Set shdShading = Selection.Shading