Change Text Colour/Box Shade if CheckBox is marked

Guessed · #2 01-26-2023, 02:39 PM

On Enter means the macro is running before you have made your selection. It would be more logical to run it after the CC value has been changed.

Based on the name of your macro, perhaps you are not aware that it only works when it has the right name AND the code is placed in the ThisDocument module.

Try this code

Code:

Private Sub Document_ContentControlOnExit(ByVal aCC As ContentControl, Cancel As Boolean)
  If aCC.Title = "Awaiting Response" Then
    If aCC.Checked = True Then
      aCC.Range.Paragraphs(1).Range.Font.ColorIndex = wdRed
    Else
      aCC.Range.Paragraphs(1).Range.Font.ColorIndex = wdGreen
    End If
  End If
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Conditionally Colour/Shade Numeric Output Ranges	E.Buttimer	Mail Merge	1	03-25-2021 02:20 PM
Change text colour for content control labels?	Toe	Word	1	01-17-2019 08:45 AM
Change Text Colour in Cell Based on Text in Same Cell	PMC11	Word VBA	1	11-14-2017 09:15 PM
Quickest way to change text to Arial size 11 specific colour	BlueClearSky	Word	6	11-22-2013 03:34 PM
How to change line height for marked text (in Word 2007)? ... as default for font?	pstein	Word	1	01-14-2012 10:15 AM