Private
Sub
Document_ContentControlOnExit(
ByVal
CC
As
ContentControl, Cancel
As
Boolean
)
Select
Case
CC.Tag
Case
"BackgroundColor"
Select
Case
CC.Range.Text
Case
"Marketing"
ActiveDocument.Background.Fill.ForeColor.RGB = RGB(253, 255, 155)
ActiveDocument.Background.Fill.Visible = msoTrue
ActiveDocument.Background.Fill.Solid
Case
"Market Research"
ActiveDocument.Background.Fill.ForeColor.RGB = RGB(255, 231, 183)
ActiveDocument.Background.Fill.Visible = msoTrue
ActiveDocument.Background.Fill.Solid
Case
"Medical Affairs"
ActiveDocument.Background.Fill.ForeColor.RGB = RGB(183, 255, 192)
ActiveDocument.Background.Fill.Visible = msoTrue
ActiveDocument.Background.Fill.Solid
Case
"Competitive Intelligence"
ActiveDocument.Background.Fill.ForeColor.RGB = RGB(235, 209, 255)
ActiveDocument.Background.Fill.Visible = msoTrue
ActiveDocument.Background.Fill.Solid
Case
"Market Access"
ActiveDocument.Background.Fill.ForeColor.RGB = RGB(183, 217, 255)
ActiveDocument.Background.Fill.Visible = msoTrue
ActiveDocument.Background.Fill.Solid
Case
"FYI Emails"
ActiveDocument.Background.Fill.ForeColor.RGB = RGB(255, 255, 255)
ActiveDocument.Background.Fill.Visible = msoTrue
ActiveDocument.Background.Fill.Solid
Case
Else
ActiveDocument.Background.Fill.ForeColor.RGB = RGB(255, 255, 255)
ActiveDocument.Background.Fill.Visible = msoTrue
ActiveDocument.Background.Fill.Solid
End
Select
End
Select
End
Sub