hr955
SendKeys will display it briefly using the OnEnter event, but there doesn't seem to be (or I can't) a find a way to make it stick:
Code:
Private Sub Document_ContentControlOnEnter(ByVal oCC As ContentControl)
If oCC.Type = wdContentControlDropdownList Then SendKeys "%{DOWN}"
End Sub