Modify the first macro as such:
If oCtl.OLEFormat.ProgID = "Forms.OptionButton.1" Then
oCtl.OLEFormat.Object.Value = False
oCtl.OLEFormat.Object.ForeColor = wdColorRed
End If

For each option button control, add a change event like this:

Private Sub OptionButton1_Change()
If OptionButton1.Value = False Then
OptionButton1.ForeColor = wdColorRed
Else
OptionButton1.ForeColor = wdColorBlack
End If
End Sub

Private Sub OptionButton2_Change()
If OptionButton2.Value = False Then
OptionButton2.ForeColor = wdColorRed
Else
OptionButton2.ForeColor = wdColorBlack
End If
End Sub

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/