Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oPar As Paragraph
  For Each oPar In ActiveDocument.Paragraphs
    If Not oPar.Range.Information(wdWithInTable) Then
      If oPar.Range.Shading.BackgroundPatternColor <> wdColorAutomatic Then
        oPar.Range.Shading.BackgroundPatternColor = wdColorAutomatic
        oPar.Range.HighlightColorIndex = wdYellow
     End If
    End If
  Next oPar
lbl_Exit:
  Exit Sub
End Sub