Problem with Word Forms text change

[madchemist]

I am trying to write a macro to change the text color in a forms textbox. I need the textbox to have blue instructions in it, and then turn into black text after the user enters information.

I have quite a bit of experience working with excel macros, but feel stupid that I cannot figure this out. I put this macro in the textboxes properties upon exit, but it doesnt change the text color.

Any ideas? I would prefer to leave it generic to the textbox it is on instead of specifically calling out a textbox to change. I would like to use this in a few areas....

thanks!

Sub TextChange()

    ActiveDocument.Unprotect 
    Selection.Font.ColorIndex = 1
    ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True, 
    
End Sub

 

[madchemist]

OK, i got it to work....kind of. This is what I ended up with.

Sub TextColor()
    ActiveDocument.Unprotect Password:="test"
    If Selection.Font.Color = wdColorBlue Then
    Selection.Font.Color = wdColorBlack
    End If
    ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True, Password:="test"
End Sub

This works fine when a user tabs into the cell. It changes it black as soon as they tab in. However, if they click on the cell it only changes the word they clicked on, not the whole textbox.

Does anyone know how to select the whole textbox?

Thanks!