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

CarlCR · #1 07-11-2016, 03:59 PM

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 · #2 07-11-2016, 11:56 PM

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.

Code:

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 · #3 07-12-2016, 05:56 AM

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

gmayor · #4 07-12-2016, 08:35 PM

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.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Grammar check into legacy forms > Text form field.	Eduardo Care	Word	2	09-09-2015 03:11 PM
Check box form field automatically checked	Eduardo Care	Word	8	09-07-2015 03:31 PM
Check Box Form Field Book Mark Auto Fill?	zacam87	Word VBA	5	08-20-2014 02:56 PM
Repeat Spell check in a doc that has already been checked	mawigfie	Word	1	08-22-2012 01:16 PM
Word Macro That Checks a Check Box Form Field When File Print is Executed	DKerne	Word VBA	4	06-09-2011 11:54 AM