Sub Color()
'
' Color Macro
'
'
ActiveDocument.Background.Fill.ForeColor.ObjectThe meColor = _
wdThemeColorAccent1
ActiveDocument.Background.Fill.ForeColor.TintAndSh ade = 0#
ActiveDocument.Background.Fill.Visible = msoTrue
ActiveDocument.Background.Fill.Solid
End Sub