Combination of 2 types of dropdown list content control
Can anyone advise me how to combine 2 dropdown list: 1 dropdown list with conditional content, another dropdown list with bookmarks. The below code cannot work and the row was cut away after updating the 2nd dropdown list.
Thanks.
Code:
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)Application.ScreenUpdating = False
Dim i As Long, StrDetails As String
'Dropdown list 1
With ContentControl
If .Title = "NameofCompany" Then
For i = 1 To .DropdownListEntries.Count
If .DropdownListEntries(i).Text = .Range.Text Then
StrDetails = .DropdownListEntries(i).Value
Exit For
End If
Next
If StrDetails = "" Then StrDetails = "||"
With ActiveDocument.SelectContentControlsByTitle("Address")(1)
.LockContents = False
.Range.Text = Split(StrDetails, "|")(0)
.LockContents = True
End With
With ActiveDocument.SelectContentControlsByTitle("Owner")(1)
.LockContents = False
.Range.Text = Split(StrDetails, "|")(1)
.LockContents = True
End With
End If
End With
Application.ScreenUpdating = True
'dropdown list 2 - with bookmark
Case ContentControl.Title
Case "EditableC"
Select Case ContentControl.Range.Text
Case "YES": InsertBB_atBookmarkRange_Range "bmEditable", "EditableYesPara"
Case "NO": InsertBB_atBookmarkRange_Range "bmEditable", "EditableNoPara"
Case Else: InsertBB_atBookmarkRange_Range "bmEditable"
End Select
End Select
lbl_Exit:
Exit Sub
End Sub