Microsoft Office Forums - View Single Post - [Solved] How to auto populate a rich text content control box from a selection in a combo control box

gmaxey · 04-23-2025, 10:44 AM

If you have two or more CCs you want to handle with a Change Event, then use something like this:

Code:

Private Sub Document_ContentControlOnExit(ByVal CCtrl As ContentControl, Cancel As Boolean)
Dim oDLE As ContentControlListEntry
  With CCtrl
    Select Case .Title
    Case "Demo1"
      For Each oDLE In .DropdownListEntries
        If oDLE.Text = .Range.Text Then
          .Range.Text = oDLE.Value
          Exit For
        End If
      Next oDLE
    Case "Contractor"
      For Each oDLE In .DropdownListEntries
        If oDLE.Text = .Range.Text Then
          .Range.Text = oDLE.Value
          ActiveDocument.SelectContentControlsByTitle("Company").Item(1).Range.Text = oDLE.Value
          Exit For
        End If
      Next oDLE
    End Select
  End With
End Sub