Vba 将wdContentControlDropdownList添加到表中的范围

尝试添加下面的对象是一场噩梦。我想将下拉列表添加到word表格上的单元格范围中

Dim objCC As ContentControl 
Dim objMap As XMLMapping 

Set objCC = ActiveDocument.ContentControls.Add(wdContentControlDropdownList) 
objCC.Title = "Select" 
objCC.SetPlaceholderText , , "Please Select" 

'List entries 
objCC.DropdownListEntries.Add "Yes" 
objCC.DropdownListEntries.Add "Nam" 

otable.Cell(2, 1).Select
selection = objCC

---

将内容控件添加到文档时，可以指定要将其添加到的位置：

Sub test()

    Dim oCC As ContentControl
    Dim oCCMapp As XMLMapping
    Dim oCCRange As Range

    Set oCCRange = ActiveDocument.Tables(1).Cell(2, 1).Range

    Set oCC = ActiveDocument.ContentControls.Add(wdContentControlDropdownList, oCCRange)

End Sub