通過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下拉框

回答

相關問題