Conditional Format of Word Content Control Drop down box

I am creating a Word form in Word 2010. I have created a drop down box to indicate the status of a project. There are three options, Red, Yellow, And Green. I would like to format the drop down box so that its background colour will correspond with the choice.
Thank you in advance.
Scotto

It's not clear whether you want to colour the: (a) content control's background; (b) font; or, perhaps (c) table cell that the content control is in.

For a:

Code:

---

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
With ContentControl
  If .Title = "Risk" Then
    Select Case .Range.Text
      Case "High": .Range.Font.ColorIndex = wdRed
      Case "Medium": .Range.Font.ColorIndex = wdYellow
      Case "Low": .Range.Font.ColorIndex = wdBrightGreen
      Case Else: .Range.Font.ColorIndex = wdAuto
    End Select
  End If
End With
End Sub

---

For b:

Code:

---

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
With ContentControl
  If .Title = "Risk" Then
    Select Case .Range.Text
      Case "High": .Range.Shading.BackgroundPatternColorIndex = wdRed
      Case "Medium": .Range.Shading.BackgroundPatternColorIndex = wdYellow
      Case "Low": .Range.Shading.BackgroundPatternColorIndex = wdBrightGreen
      Case Else: .Range.Shading.BackgroundPatternColorIndex = wdNoHighlight
    End Select
  End If
End With
End Sub

---

For c:

Code:

---

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
With ContentControl
  If .Title = "Risk" Then
    Select Case .Range.Text
      Case "High": .Range.Cells(1).Shading.BackgroundPatternColorIndex = wdRed
      Case "Medium": .Range.Cells(1).Shading.BackgroundPatternColorIndex = wdYellow
      Case "Low": .Range.Cells(1).Shading.BackgroundPatternColorIndex = wdBrightGreen
      Case Else: .Range.Cells(1).Shading.BackgroundPatternColorIndex = wdNoHighlight
    End Select
    End If
End With
End Sub

---

Whichever version you want to use should be saved to the 'ThisDocument' code module of the document or it's template. The file will need to be saved as a macro-enabled file (dotm template or docm document). It's also possible to combine changes in font colour & background shading.

I have just tried your code and it worked very well. Thank you very much for the speedy reponse!
Scotto

I tried all 3of these codes to try and adapt to my needs. I failed. Can you help me to change the font color only when a drop down is selected? I have 2 selections in my drop down, "yes" is a red Font and no is black. The above codes change the cell colors not just the font. Thank you very much!

Quote:

---

Originally Posted by Lin

I tried all 3of these codes …

The above codes change the cell colors not just the font.

---

That simply isn't so. The:
• first colours only the text;
• second colours only the content control background;
• third colours the content control's cell.

None of the codes changes both the font colour and the background colour.

:crying::crying::crying::crying::banghead:
Hi macropod, I know this is an old and well worn topic but am trying to add coloured cell backgrounds to a drop down list dependant on choice selection in Word using office 365 an i have tried all of your coding below to try and get some change whether its cell colour, font or anything but nothing changes please help. I'm sure it's down to Muppetry on my part but it's doing my head in.... Please help
Cheers
Matt

For what you've described, you need the third version of the code, which needs to be placed in the 'ThisDocument' code module of either the document or its template.

Hi again macropod, Thanks but I've tried all 3 versions and placed it in the "ThisDocument" module and get nothing hence :banghead::banghead: Does it make any difference which version of windows/office(word) in use?
Im using Win 10 and Office 365.
Thanks
Matt

The code works on all versions of Office from 2007 onwards, on any supported Windows or Mac platform.