Microsoft Office Forums - View Single Post - [Solved] Multiple entries in dropdown lists

macropod · 06-26-2018, 04:23 AM

You could use code like:

Code:

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim i As Long, StrDetails As String
With ContentControl
  If .Title = "Client" Then
    If .LockContents = True Then Exit Sub
    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
    With ActiveDocument.ContentControls(2)
      If .LockContents = True Then Exit Sub
      .Range.Text = StrDetails
      .LockContents = True
    End With
    .LockContents = True
  End If
End With
End Sub

Do note that this will prevent anyone changing their selection & output unless both content controls are unlocked.