Private Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl)
Dim oTbl As Table
Dim lngLE As Long
Select Case ContentControl.Title
Case "Item#"
Set oTbl = ActiveDocument.Tables(1)
For lngLE = ContentControl.DropdownListEntries.Count To 2 Step -1
ContentControl.DropdownListEntries(lngLE).Delete
Next lngLE
For lngLE = 1 To oTbl.Rows.Count
ContentControl.DropdownListEntries.Add Left(oTbl.Cell(lngLE, 2).Range.Text, Len(oTbl.Cell(lngLE, 2).Range.Text) - 2), Left(oTbl.Cell(lngLE, 3).Range.Text, Len(oTbl.Cell(lngLE, 3).Range.Text) - 2)
Next lngLE
End Select
lbl_Exit:
Exit Sub
End Sub
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim oTbl As Table
Dim lngLE As Long
Select Case ContentControl.Title
Case "Item#"
Set oTbl = Selection.Range.Tables(1)
oTbl.Cell(3, 2).Range.Text = vbNullString
For lngLE = 2 To ContentControl.DropdownListEntries.Count
If ContentControl.DropdownListEntries(lngLE).Text = ContentControl.Range.Text Then
oTbl.Cell(3, 2).Range.Text = ContentControl.DropdownListEntries(lngLE).Value
Exit For
End If
Next lngLE
End Select
lbl_Exit:
Exit Sub
End Sub