![]() |
#5
|
||||
|
||||
![]()
If there is more than one control in the document then it must be limited to the control either by checking against the current control's title or tag. It is also advisable to check whether the control is showing the placeholder text e.g.
Code:
Private Sub Document_ContentControlOnExit(ByVal CCtrl As ContentControl, Cancel As Boolean) With CCtrl If CCtrl.Title = "Names" Then 'the name of the control If CCtrl.ShowingPlaceholderText = False Then .Type = wdContentControlRichText .Range.Font.Bold = False .Range.Words.First.Font.Bold = True .Type = wdContentControlDropdownList Else .Range.Font.Bold = False End If End If End With End Sub
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
TzarChasm | Word | 7 | 04-14-2016 06:28 PM |
![]() |
BrianSvanvik | Word | 2 | 09-04-2015 01:20 PM |
![]() |
DougsGraphics | Word VBA | 2 | 06-24-2015 07:31 AM |
![]() |
BrainSlugs83 | Word Tables | 8 | 11-14-2013 03:06 AM |
![]() |
keithacochrane | Word | 1 | 05-28-2012 05:06 PM |