Ms access 通过Access 2013设置Word下拉框
我有一个Word文档，我正试图通过Access以编程方式填写它。下拉列表是Word中的内容控件。我可以设置除一个下拉列表之外的所有内容，但我看不到Word文档中存在任何差异，这将是一个问题 代码如下所示：Ms access 通过Access 2013设置Word下拉框,ms-access,ms-word,vba,Ms Access,Ms Word,Vba,我有一个Word文档，我正试图通过Access以编程方式填写它。下拉列表是Word中的内容控件。我可以设置除一个下拉列表之外的所有内容，但我看不到Word文档中存在任何差异，这将是一个问题 代码如下所示： Dim wDoc As Word.Document Dim objCC As ContentControl Dim objCE As ContentControlListEntry Dim ListSelection As String Set WordApp = GetObject(, "
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
**这里设置了十几个下拉列表，仅包括一对。第一条集合线有效，但第二条（“区域”）无效。在完整的代码中，在“Area”行执行之前和之后都有几个下拉列表集，其他的都可以工作。我仔细检查了contentcontrol ID是否正确。我肯定我错过了什么，但我看不见。关于看什么有什么想法或建议吗？当然，发布后我马上发现了问题。有人在Access中键入了所选内容，但与下拉列表不匹配。我只需要锁定用户输入响应，并强制使用下拉列表
我有一个Word文档，我正试图通过Access以编程方式填写。