Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oTbl As Table
  For Each oTbl In ActiveDocument.Tables
    If Not oTbl.Uniform Then oTbl.Range.Cells(1).Shading.BackgroundPatternColor = wdColorRose
  Next oTbl
lbl_Exit:
  Exit Sub
End Sub