Drop down fields in Word

BernaDev202 · #1 08-08-2018, 08:24 AM

By reading previous threads on the subject, I've been able to create a color-coded drop down field in a Word table using the following:

Code:

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
With ContentControl
  Select Case .Title
    Case "Relationship_Legal Team1"
      With .Range
        Select Case .Text
          Case "Advocate"
            .Cells(1).Shading.BackgroundPatternColorIndex = wdGreen
            .Font.ColorIndex = wdGreen
          Case "Endorser"
            .Cells(1).Shading.BackgroundPatternColorIndex = wdLightGreen
            .Font.ColorIndex = wdBrightGreen
          Case "Neutral"
            .Cells(1).Shading.BackgroundPatternColorIndex = wdDarkYellow
            .Font.ColorIndex = wdDarkYellow
          Case "Blocker"
            .Cells(1).Shading.BackgroundPatternColorIndex = wdRed
            .Font.ColorIndex = wdRed
          Case "None"
            .Cells(1).Shading.BackgroundPatternColorIndex = wdWhite
            .Font.ColorIndex = wdWhite
          Case Else
            .Cells(1).Shading.BackgroundPatternColorIndex = wdNoHighlight
            .Font.ColorIndex = wdAuto
        End Select
      End With
  End Select
End With

But is there a way for a user to also type text into the same field?

For instance, in the business development form I'm creating, the user selects a relationship type from the drop-down and the cell changes accordingly:

Relationship:
Advocate (Green)
Endorser (Bright Green)
Neutral (Dark Yellow)
Blocker (Red)
None (White)

Then, after the relationship type is selected and the cell changes color, I want the user to be able to add an initial (in white) to identify what type of power that relationship has:

D (Decision Maker)
A (Authority-wielder)
I (Influencer)
O (Observer)

It would ultimately look how it does in the attached image.

Any info would be much appreciated.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to change an RGB table cell shading color to another RGB color	David Matthews	Word VBA	4	05-29-2018 02:45 PM
Create Drop Down list to change cell color	bksmith	Excel	2	08-21-2017 02:37 AM
How to change the font color of specific text within a Word table cell	epid011	Word Tables	2	05-15-2017 05:21 PM
Allow Cell Background Fill/Text Color Change while Protected Sheets are Grouped	RaudelJr	Excel	5	04-18-2017 11:11 PM
Change cell color when selection is made from a drop down list	fedcco	Excel	12	08-28-2012 10:43 PM