Microsoft Office Forums - View Single Post - Multi-lined combo-box values

gmaxey · 05-09-2017, 03:26 AM

There is no such animal within Word. You could create a userform with a multi-column list or combobox or you can fudge and create a pseudo multi-line content control dropdown box.

Using the CC properties dialog, title the CC "Address", enter the person's name as the Text to Display and enter the full address as the value separated with "|" e.g.,

Jim Smith Jim Smith|123 Eaton Street|Suite 9A|Boston MA 12345

Use this code on CC exit:

Code:

Private Sub Document_ContentControlOnExit(ByVal CC As ContentControl, Cancel As Boolean)
Dim arrParts() As String
Dim lngIndex As Long
  
  Select Case CC.Title
    Case "Address"
      If Not CC.ShowingPlaceholderText Then
        For lngIndex = 2 To CC.DropdownListEntries.Count
          If CC.Range.Text = CC.DropdownListEntries(lngIndex).Text Then
            arrParts = Split(CC.DropdownListEntries(lngIndex).Value, "|")
            Exit For
          End If
        Next lngIndex
        CC.Type = 1
        CC.MultiLine = True
        For lngIndex = 0 To UBound(arrParts)
          Select Case lngIndex
            Case 0: CC.Range.Text = arrParts(lngIndex) & Chr(11)
            Case UBound(arrParts): CC.Range.Text = CC.Range.Text & arrParts(lngIndex)
            Case Else: CC.Range.Text = CC.Range.Text & arrParts(lngIndex) & Chr(11)
          End Select
        Next lngIndex
        CC.Type = wdContentControlDropdownList
      End If
  End Select
End Sub