Conditionally Color Formatting Text selected from a dropdown list in Word 2010

macropod · #1 03-20-2014, 05:38 PM

The thread is marked as solved because it solved the OP's issues. Your opinion nearly a year later doesn't change that.

Have you looked at the attachment and the macro code in it? What instruction do you need? What are you trying to achieve beyond what the code in the attachment does?

GDaddy35803 · #2 08-20-2019, 03:01 PM

Hello Paul,

I tried to do as you instructed but can't seem to see the code in your attachment.

I am not a coder, but this is what I am looking to do: make a drop down list in Word [done] but when I pick a word "Critical, High, Medium, Low, None" I want it displayed in the colors below. When I run the below VBScript they all display green. I copied this code off the internet and it change the whole cell one of the colors, but I just want the text. So what does the last line need to be as well?

Code:

With ContentControl.Range
    If ContentControl.Title = "Severity" Then
        Select Case .Text
            Case "Critical"
                .Attributes.Add("style", "color:Dark Red")
            Case "High"
                .Attributes.Add("style", "color:Red")
            Case "Medium"
                .Attributes.Add("style", "color:Orange")
            Case "Low"
                .Attributes.Add("style", "color:Blue")
            Case "None"
                .Attributes.Add("style", "color:Green")
            Case Else
                .Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic
        End Select
    End If
End With
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA: How to place dropdown list next to text	YigalB	Word VBA	0	08-11-2013 01:48 PM
Formatting affecting more than selected text	esteban	Word	7	05-25-2012 04:34 AM
Change cell color everytime a value is selected in dropdown list	angelica_gloria	Excel	4	01-27-2012 06:47 PM
Strange formatting text color error in form fields..	rscafidi	Word	2	10-16-2011 03:25 PM
Text form field loses formatting in Word 2010	mel72349	Word	0	08-02-2011 02:25 PM