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.
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