创建新的下拉列表内容控件并将其插入到文档后如何将某一项设置默认选项，比如将"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"