You can avoid selecting the text by using the following:
Code:
With ActiveDocument.Content.ParagraphFormat
.Shading.Texture = wdTextureNone
.Shading.ForegroundPatternColor = wdColorAutomatic
.Shading.BackgroundPatternColor = wdColorAutomatic
End With