Microsoft Office Forums - View Single Post - [Solved] Content Control Dropdown Dependencies

macropod · 10-28-2015, 03:56 PM

If your table has 5 columns throughout, you could use:

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
    For i = 1 To .DropdownListEntries.Count
      If .DropdownListEntries(i).Text = .Range.Text Then
        StrDetails = .DropdownListEntries(i).Value
        Exit For
      End If
    Next
    With ActiveDocument.Tables(5).Range
      For i = 0 To 14
        .Cells(i + 11).Range.Text = Split(StrDetails, "|")(i)
      Next
    End With
  End If
End With
End Sub

Otherwise, you could use:

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
    For i = 1 To .DropdownListEntries.Count
      If .DropdownListEntries(i).Text = .Range.Text Then
        StrDetails = .DropdownListEntries(i).Value
        Exit For
      End If
    Next
    With ActiveDocument.Tables(5)
      For i = 0 To 4
        .Rows(3).Cells(i + 1).Range.Text = Split(StrDetails, "|")(i)
      Next
      For i = 5 To 9
        .Rows(4).Cells(i - 4).Range.Text = Split(StrDetails, "|")(i)
      Next
      For i = 10 To 14
        .Rows(5).Cells(i - 9).Range.Text = Split(StrDetails, "|")(i)
      Next
    End With
  End If
End With
End Sub