Selection.Shading (Word)

Returns a Shading object that refers to the shading formatting for the specified selection.

Dim shdShading As Shading
Set shdShading = Selection.Shading