Hello, darkmaster006! My limited knowledge of VBA says that your code is doing exactly what is expected:
selection.WholeStory
selection.Shading.BackgroundPatternColor = wdColorAutomatic

Maybe, this forum's gurus will have different opinions.