word中vb如何设置下拉列表内容控件的默认显示的项

创建新的下拉列表内容控件并将其插入到文档后如何将某一项设置默认选项，比如将"Monkey" 设成默认选项
Dim objcc As ContentControl
Dim objMap As XMLMapping
 
Set objcc = ActiveDocument.ContentControls.Add(wdContentControlDropdownList)
objcc.Title = "My Favorite Animal"
If objcc.ShowingPlaceholderText Then _
 objcc.SetPlaceholderText , , "Select your favorite animal "

objcc.DropdownListEntries.Add "Cat"
objcc.DropdownListEntries.Add "Dog"
objcc.DropdownListEntries.Add "Horse"
objcc.DropdownListEntries.Add "Monkey"
objcc.DropdownListEntries.Add "Snake"
objcc.DropdownListEntries.Add "Other"