Question

我有一个Word文档，我试图通过Access以编程方式填写。下拉列表是Word中的内容控件。我可以设置除了一个下拉列表之外的所有内容，但我无法看到Word文档中存在任何问题。

代码如下：

Dim wDoc As Word.Document
Dim objCC As ContentControl
Dim objCE As ContentControlListEntry
Dim ListSelection As String

Set WordApp = GetObject(, "Word.Application")
WordApp.Visible = True
WordApp.WindowState = wdWindowStateMaximize
WordApp.Documents.Add Template:=strTemplateLocation, newtemplate:=False

With WordApp

  ListSelection = Me.cmbAvailability.ListIndex + 2
  Set objCC = .ActiveDocument.ContentControls(5): Set objCE = objCC.DropdownListEntries.Item(ListSelection): objCE.Select

  ListSelection = Me.Area.ListIndex + 2
  Set objCC = .ActiveDocument.ContentControls(13): Set objCE = objCC.DropdownListEntries.Item(ListSelection): objCE.Select

**这里有大约十几个下降，只包括一对。 fisrt set line有效，但第二个（＆＃34; Area＆＃34;）没有。在完整的代码中，＆＃34; Area＆＃34;之前和之后有几个下拉设置。行执行，所有其他工作。我仔细检查以确保contentcontrol ID是正确的。我确信我只是遗漏了一些东西，但无法看到它。关于该看什么的任何想法或建议？

Answer 1

当然，发布后我发现了问题。有人在Access中输入了选项并且它与下拉列表不匹配。我只需要锁定用户输入响应并强制使用下拉菜单。

通过Access 2013设置Word下拉框

1 个答案: