Previous font color carries over to selections in next Content Control Drop-down list selection

Guessed · #1 08-22-2023, 04:53 PM

I'm not seeing your experience with the second CC also getting the colour applied. I can click from CC to CC without the second one also being recoloured. Try this modification on your code

Code:

Private Sub Document_ContentControlOnExit(ByVal CC As ContentControl, Cancel As Boolean)
  Dim iCol As Long
  iCol = wdBlack    'set default colour
  If Not CC.ShowingPlaceholderText Then
    If CC.Title = "Question1" Then
      Select Case CC.Range.Text
        Case "1": iCol = wdGreen
        Case Else: iCol = wdRed
      End Select
    ElseIf CC.Title = "Question2" Then
      Select Case CC.Range.Text
        Case "High": iCol = wdGreen
        'Case "Medium": iCol = wdBlack
        Case "Low": iCol = wdRed
      End Select
    End If
    CC.Range.Font.ColorIndex = iCol
  End If
End Sub

I think you are out of luck with seeing the colour change before you leave the CC. There is an event that kicks off with the CC change IF the CC is mapped to an XML element. However, when I try to recolour the text in the CC I get a message to say "This object model command is not available while in the current element". You could experiment with it yourself by mapping the CC to XML and adding a Document_ContentControlBeforeStoreUpdate macro to the module

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
font color based on content control pulldown selection	PbFoot	Word VBA	3	01-03-2023 08:22 AM
Lock or unlock a content control depending on the selection from the drop down list	ncruz	Word VBA	4	10-15-2021 08:50 AM
Content control font color	rkferguson	Word VBA	1	12-18-2018 05:06 AM
Table with content control drop down - change font	DebA	Word	3	04-29-2018 09:07 PM
Change cell color when selection is made from a drop down list	fedcco	Excel	12	08-28-2012 10:43 PM