![]() |
#3
|
|||
|
|||
![]()
Thank you Macropod
At the moment I have this: Code:
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean) Dim i As Long, StrDetails As String With ContentControl If .Title = "CHOOSE SECTOR" Then For i = 1 To .DropdownListEntries.Count If .DropdownListEntries(i).Text = .Range.Text Then StrDetails = Replace(.DropdownListEntries(i).Value, "|", Chr(11)) Exit For End If Next TextBoxLauren.Text = StrDetails ElseIf .Title = "CHOOSE SECTOR XHO" Then For i = 1 To .DropdownListEntries.Count If .DropdownListEntries(i).Text = .Range.Text Then StrDetails = Replace(.DropdownListEntries(i).Value, "|", Chr(11)) Exit For End If Next TextBoxLauren.Text = StrDetails Else End If End With End Sub Last edited by macropod; 11-22-2017 at 01:05 AM. Reason: Added code tags |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
paul_pearson | Word VBA | 151 | 10-18-2023 04:23 PM |
![]() |
ajanson | Word VBA | 36 | 07-15-2019 08:16 PM |
![]() |
Nukedaddy | Word | 3 | 09-16-2016 06:50 AM |
![]() |
asteinroeder | Word VBA | 5 | 10-28-2015 03:56 PM |
Multiple resource Dependencies / Mapping | Sherry | Project | 3 | 04-03-2014 08:03 AM |