How to make a Check Box Form Field red if not checked?

[CarlCR]

I have a Word Table doc with a check box on each row to track what has been accomplished. Is there a way to make a Check Box red if it has not been checked and then to turn black after it is checked?

[gmayor]

I assume we must be talking about legacy form fields, in which case you will need a macro run on exit from the checkbox field and you would have to leave the field to run it e.g.

Sub MacroOnExit()
    If GetCurrentFF.CheckBox.Value = True Then
        GetCurrentFF.Range.Font.ColorIndex = wdAuto
    Else
        GetCurrentFF.Range.Font.ColorIndex = wdRed
    End If
lbl_Exit:
    Exit Sub
End Sub

Private Function GetCurrentFF() As Word.FormField
    Set rngFF = Selection.Range.FormFields(1).Range
    Set GetCurrentFF = rngFF.FormFields(1)
lbl_Exit:
    Exit Function
End Function

[CarlCR]

Thank you Graham. What does the Private Function do? It seems to be a separate macro.

[gmayor]

It identifies the current field to the main macro, so that you don't have to create a separate macro for each check box field.