通过Access 2013设置Word下拉框

我有一个Word文档，我试图通过Access以编程方式填写。下拉菜单是Word中的内容控件。我能够设置所有，但只有一个下拉，我不能看到任何差异，在Word文档，这将是一个问题。通过Access 2013设置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起作用，但第二个（“区域”）不行。在完整的代码中，“区域”行执行前后有几个下拉列表，其他所有工作都在工作。我再次检查以确保contentcontrol ID是正确的。我确信我只是想念一些东西，但不能看到它。任何关于看什么的想法或建议？

来源

2017-07-19 Rob Riggle

'我有一个Word文档，我试图通过Access以编程方式填写。'亲爱的上帝，我很抱歉。你有一个patreon吗？我会寄钱。你可怜的家人......我现在在哭。这很糟糕。没有人应该面对这一点。没有人。 – Will

当然，发布后我发现问题。有人在Access中的选择中输入，并且与下拉不匹配。我只需要锁定用户输入回复并强制使用下拉菜单。

来源

2017-07-19 19:41:26

通过Access 2013设置Word下拉框

回答

相关问题