Code:
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