vba选择word中下拉的内容控件的第二项

要选择 Word 中下拉的内容控件的第二项，可以使用以下 VBA 代码：

Sub SelectDropDownList()
    Dim cc As ContentControl
    Set cc = ActiveDocument.ContentControls(1) '指定要操作的内容控件
    
    If cc.Type = wdContentControlDropdownList Then '判断内容控件是否为下拉列表
        cc.DropdownListEntries(2).Select '选择下拉列表的第二项
    End If
End Sub

在此代码中，`ActiveDocument.ContentControls(1)` 表示选中文档中的第一个内容控件。您可以根据需要修改代码中的内容控件索引，以选中不同的控件。然后，使用 `DropdownListEntries` 属性获取下拉列表中的所有选项，并使用索引 `2` 来选择第二项。最后，使用 `Select` 方法选择该项。

在代码中，还使用了 `Type` 属性来判断选定的内容控件是否为下拉列表。如果不是，则不执行任何操作。