|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Previous font color carries over to selections in next Content Control Drop-down list selection
I'm very new to VBA...
I have several content control drop-down lists in my document. I have written the below VB to change the color of the font based on the selection from the drop-down lists. Private Sub Document_ContentControlOnExit(ByVal CC As ContentControl, Cancel As Boolean) If CC.Title = "Question1" And Not CC.ShowingPlaceholderText Then Select Case CC.Range.Text Case "1": CC.Range.Font.ColorIndex = wdGreen Case Is <> "1": CC.Range.Font.ColorIndex = wdRed End Select End If If CC.Title = "Question2" And Not CC.ShowingPlaceholderText Then Select Case CC.Range.Text Case "High": CC.Range.Font.ColorIndex = wdGreen Case "Medium": CC.Range.Font.ColorIndex = wdBlack Case "Low": CC.Range.Font.ColorIndex = wdRed End Select End If End Sub For Question1, if the user selects "1" from the drop-down list, the 1 will turn green when exiting the the Content Control. Any other response will turn red. My problem is that when a selection is "clicked on" in the next content-control drop-down list, the font color of the selection changes to the color of the previous selection until the user exits that content control, then it changes to the appropriate color. I'm looking for a way to prevent the font color from carrying over from one content control drop-down list to another. As an added bonus, I'd like for the selection to change font color when the selection is made prior to exiting the content control. Any assistance would be appreciated. |
#2
|
||||
|
||||
I'm not seeing your experience with the second CC also getting the colour applied. I can click from CC to CC without the second one also being recoloured. Try this modification on your code
Code:
Private Sub Document_ContentControlOnExit(ByVal CC As ContentControl, Cancel As Boolean) Dim iCol As Long iCol = wdBlack 'set default colour If Not CC.ShowingPlaceholderText Then If CC.Title = "Question1" Then Select Case CC.Range.Text Case "1": iCol = wdGreen Case Else: iCol = wdRed End Select ElseIf CC.Title = "Question2" Then Select Case CC.Range.Text Case "High": iCol = wdGreen 'Case "Medium": iCol = wdBlack Case "Low": iCol = wdRed End Select End If CC.Range.Font.ColorIndex = iCol End If End Sub
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
Tags |
drop-down list, font color |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
font color based on content control pulldown selection | PbFoot | Word VBA | 3 | 01-03-2023 08:22 AM |
Lock or unlock a content control depending on the selection from the drop down list | ncruz | Word VBA | 4 | 10-15-2021 08:50 AM |
Content control font color | rkferguson | Word VBA | 1 | 12-18-2018 05:06 AM |
Table with content control drop down - change font | DebA | Word | 3 | 04-29-2018 09:07 PM |
Change cell color when selection is made from a drop down list | fedcco | Excel | 12 | 08-28-2012 10:43 PM |