![]() |
#4
|
||||
|
||||
![]()
You can use a ContentControlOnExit macro coded as:
Code:
Private Sub Document_ContentControlOnExit(ByVal CCtrl As ContentControl, Cancel As Boolean) Dim t As Long With CCtrl If .Title <> "QMS 2015" Then Exit Sub If .ShowingPlaceholderText = True Then Exit Sub t = .Type .Type = wdContentControlText With .Range .Text = Split(.Text, " ")(0) & " " & Split(.Text, " ")(1) End With .Type = t End With End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
Radders567 | Word VBA | 8 | 06-06-2020 12:41 AM |
Creating a drop down list that if (a) is selected then (x) happens | mummarochy | Word | 1 | 06-11-2018 10:07 PM |
Drop down box list based on response to another drop down box | Phideaux | Excel | 16 | 04-13-2018 03:07 AM |
Help creating a hyperlink drop down list between documents | SconnieGuy91 | Word | 3 | 11-30-2016 05:26 PM |
![]() |
celias | Word VBA | 3 | 07-11-2016 11:40 PM |