Microsoft Office Forums - View Single Post - CHange colour of text box if has a tick or a X

chris.james · 09-29-2023, 04:02 AM

HI.

I use vba on excel fairly regularly but just started to use on word and ill be honest im confused on what i thought would be a basic thing to do.

I have lots of checkboxes in a word doc and when i click on a checkbox it brings up a tick and a x. So far so good with no vba.

Now what i want is that when the checkbox is clicked if this brings up the tick the checkbox goes green and if it brings up a x the checkbox goes red.

I found the following code but it isnt performing how i hoped.

Code:

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