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