![]() |
|
#2
|
||||
|
||||
|
Hi Weed,
You would need 'On Exit' macros attached to the dropdowns for this. For the "Highest Urgency", "Normal urgency" and "High urgency" dropdown, the code might be: Code:
Sub ColorIt()
Dim Pwd As String
Pwd = ""
With ActiveDocument
If .ProtectionType = wdAllowOnlyFormFields Then
.Unprotect Password:=Pwd
End If
With .FormFields("Dropdown1")
Select Case .Result
Case "Normal urgency"
.Range.Font.Color = wdColorBrightGreen
Case "High urgency"
.Range.Font.Color = wdColorYellow
Case "Highest Urgency"
.Range.Font.Color = wdColorRed
Case Else
.Range.Font.Color = wdColorAutomatic
End Select
End With
.Protect Type:=wdAllowOnlyFormFields, NoReset:=True, Password:=Pwd
End With
End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Naming a cell then linking with a certain amount of charachters looses content. | shabbaranks | Excel | 1 | 12-27-2011 01:06 AM |
using a cell content as a string with COUNTIF
|
geoffm | Excel | 1 | 08-16-2011 11:31 AM |
| How can I delete the content of a cell in column if the cell value is more than 1000? | Learner7 | Excel | 2 | 06-27-2011 05:44 AM |
Cell content splits
|
Mahen | Excel | 2 | 05-15-2011 01:53 AM |
| Drop down box in a cell | Grapejuice | Excel | 0 | 10-22-2007 07:40 PM |