Dropdown conditional formatting

[tlkc67]

Hi


Can anyone help? I have a word document in which I have a table with a dropdown box with 4 selections. Dependent on which option is selected I want the box/cell to highlight a different colour. I know you can do this in excel but is it possible to do in word & if so how?

Cheers
T

[gmaxey]

What type of dropdown are you using? Word doesn't have a built-in "change" event for content control dropdowns, but you could use the OnEntry and OnExit events:

Dim oCell As Cell
Private Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl)
  Select Case ContentControl.Title
    Case "Demo"
      Set oCell = Selection.Cells(1)
   End Select
End Sub
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
  Select Case ContentControl.Title
    Case "Demo"
      Select Case ContentControl.Range.Text
        Case "A": oCell.Shading.BackgroundPatternColorIndex = wdBrightGreen
        Case "B": oCell.Shading.BackgroundPatternColorIndex = wdDarkRed
      End Select
  End Select
End Sub

[tlkc67]

I'm using a Drop-down Form Field with the 4 options being; Positive, Neutral, Poor or None.

Do I need to create a macro that calculates on exit?

Can you explain exactly what I would need to do as I'm not too hot on creating macros.

Thank you for your response

T

[gmaxey]

Something like this:

Sub DDOnExit()
ActiveDocument.Unprotect
   Select Case ActiveDocument.FormFields("Dropdown1").Result
     
        Case "Positive": Selection.Cells(1).Shading.BackgroundPatternColorIndex = wdBrightGreen
        Case "Negative": Selection.Cells(1).Shading.BackgroundPatternColorIndex = wdDarkRed
     
  End Select
  ActiveDocument.Protect wdAllowOnlyFormFields, True
End Sub

Set DDOnExit to run "OnExit" from the dropdown. Assumes the dropdown is named "Dropdown1"

[macropod]

Originally Posted by tlkc67

Hi
Can anyone help? I have a word document in which I have a table with a dropdown box with 4 selections. Dependent on which option is selected I want the box/cell to highlight a different colour. I know you can do this in excel but is it possible to do in word & if so how?

How about reading some of the other threads on the same topic??? See, for example: https://www.msofficeforums.com/word-...selection.html

[tlkc67]

Thank you Greg that works.

Excuse my ignorance but how do i get it to work for the whole column?

[gmaxey]

Sub DDOnExit()
ActiveDocument.Unprotect
   Select Case ActiveDocument.FormFields("Dropdown1").Result
     Case "Positive": Selection.Tables(1).Columns(Selection.Cells(1).ColumnIndex).Shading.BackgroundPatternColorIndex = wdBrightGreen
        Case "Negative": Selection.Tables(1).Columns(Selection.Cells(1).ColumnIndex).Shading.BackgroundPatternColorIndex = wdDarkRed
  End Select
  ActiveDocument.Protect wdAllowOnlyFormFields, True
End Sub