I have been fighting with this for awhile.

First problem:
I have fields that are red so the user knows he has to put a value in
that field and if he clicks final and scrolls through the document and
sees red text he has to go back and fix those entries.

First solution:
macrobutton to clear formatting on click.

Second problem:
works great if user types the info but if he decides to click somewhere
else the field text stays black.

Second solution:
This code finds the field index and stores it then changes the text
back to red if the field remains if the file is gone (user typed over
the field) (message box for debug purposes) continue.
The piece I am missing is how to activate the first part of the code to
store the field index then if the user clicks somewhere else and the
field remains to change the field back to red text.

Sub ChangeRedTextBack()
Dim intFieldIndex As Integer

On Error GoTo ErrHandle

intFieldIndex = Selection.Fields.Item(1).Index

   If ActiveDocument.Fields.Item(intFieldIndex).Result.Font.Color <>
wdColorRed Then
       ActiveDocument.Fields.Item(intFieldIndex).Select
       Selection.Font.Color = wdColorRed
   End If

ErrHandle:
   If Err.Number = 5941 Then
       MsgBox "No field selected." & vbCr & "Please select a field.",
vbInformation
   End If

Err.Clear

End Sub

Thanks for the help