You can choose which shading colour to keep, as long as you know what that colour is. For example, the pale blue colour in the example document is RGB(246,250,251) or &HFBFAF6. You can call the colour directly e.g. the following will remove the other shading
colours leaving the blue behind.
How do you find the colour? ColorCop comes to the rescue. This little tool is invaluable for programmers working with colour.
Dim oPara As Paragraph
For Each oPara In ActiveDocument.Paragraphs
With oPara.Range.Shading
If Not .BackgroundPatternColor = &HFBFAF6 Then
.BackgroundPatternColor = wdColorAutomatic
End If
End With
With oPara.Range.Font.Shading
If Not .BackgroundPatternColor = &HFBFAF6 Then
.BackgroundPatternColor = wdColorAutomatic
End If
End With
Next oPara