Option Explicit
Private mstrText As String
Private Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl)
If ContentControl.Tag = "dd1" Then mstrText = ContentControl.Range.Text
End Sub
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim objContentControl As ContentControl
Dim objContentControlListEntry As ContentControlListEntry
If ContentControl.Tag = "dd1" Then
If ContentControl.Range.Text <> mstrText Then
For Each objContentControl In ContentControls
If objContentControl.Tag = "dd2" Then
For Each objContentControlListEntry In objContentControl.DropdownListEntries
If objContentControlListEntry.Text = ContentControl.Range.Text Then
Call objContentControlListEntry.Select
mstrText = vbNullString
Exit Sub
End If
Next
End If
Next
End If
End If
End Sub