将项目添加到下拉列表 Word 2010答案

【问题标题】：Add items to drop-down list Word 2010将项目添加到下拉列表 Word 2010
【发布时间】：2020-07-06 23:54:54
【问题描述】：

我在 Microsoft Word 2010 中创建了一个文档并添加了一个下拉列表内容控件。如何选择该对象并通过 VBA 向其中添加项目？详尽的搜索导致能够添加一个并添加项目，但我想知道如何将项目添加到文档中已有的列表中。

此外，是否可以将 Microsoft Word 2010 文档的扩展名更改为 (.zip) 并添加到 XML 文件中。此 XML 文件将包含要添加到下拉内容控件的所有项目。

【问题讨论】：

你试过什么代码？
@bibadia：目前，我没有使用特定的代码。我尝试使用来自 MSDN 和 TechNet 的示例，但没有一个有效，因为这些示例都需要我向文档中添加新的下拉内容控件。我想要的是预先制作我的表单并在文档打开时将所有项目加载到下拉内容控件中。
使用 Word VBA，您通常可以通过查看 VB 编辑器的“视图”->“对象浏览器”窗格中的相关对象来学习一些东西，并且在许多情况下（但绝不是all）录制宏会给你一些线索（在这种情况下，录制手动插入一些列表项的动作会给你一个指针，但可能不是最合适的代码。
@bibadia：我尝试将宏录制到 VBA 中，但是一旦我点击录制按钮，我就无法单击下拉内容控件。我可以添加一个并向其中添加项目，但不能选择文档上已有的下拉内容控件。
如果先选择一个，然后录制宏，就会得到信息。但它不会告诉您如何在代码中指定要使用的特定控件 - 因此，您通常会查看对象模型以查看例如哪些对象具有 ContentControls 集合属性，以及如何识别控件在该集合中。

【解决方案1】：

类似

For Each item In ActiveDocument.ContentControls
    If item.Title = "DropDown1" Then
        item.DropdownListEntries.Add Text:="Item1", Value:="Item1"
        item.DropdownListEntries.Add Text:="Item2", Value:="Item2"
        Exit For
    End If
Next

您可以通过标题或标签找到它。或者按类型 - 如果它只是文档中的一个下拉菜单。

【讨论】：