![]() |
#3
|
||||
|
||||
![]()
It can be done via a ContentControlOnExit macro, but it's hardly intuitive:
Code:
Private Sub Document_ContentControlOnExit(ByVal CCtrl As ContentControl, Cancel As Boolean) With CCtrl .Type = wdContentControlRichText .Range.Font.Bold = False .Range.Words.First.Font.Bold = True .Type = wdContentControlDropdownList End With End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
![]() |
||||
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 |