Microsoft Office Forums - View Single Post - [Solved] Output based on Combo Box selected items in Microsoft Word

macropod · 02-03-2016, 07:59 PM

For dropdown formfields, you could employ a macro like:

Code:

Sub ColorDropDown()
Dim sText As String, oFld As FormField
Const Pwd As String = ""
With ActiveDocument
  Set oFld = Selection.FormFields(1)
  sText = oFld.Result
  If .ProtectionType <> wdNoProtection Then .Unprotect Password:=Pwd
  With oFld.Range
    Select Case sText
      Case Is = "Bad"
        .Font.Color = wdColorRed
      Case Is = "Poor"
        .Font.Color = wdColorOrange
      Case Is = "Fair"
        .Font.Color = wdColorYellow
      Case Is = "Good"
        .Font.Color = wdColorGreen
      Case Is = "Excellent"
        .Font.Color = wdColorBlue
      Case Is = "Outstanging"
        .Font.Color = wdColorIndigo
      Case Else
        .Font.Color = wdColorBlack
    End Select
  End With
  .Protect Type:=wdAllowOnlyFormFields, NoReset:=True, Password:=Pwd
End With
End Sub

For any formfield you want to use this code with, simply designate 'ColorDropDown' as the formfield's on-exit macro.