Wordの設定Access 2013のドロップダウンボックス

Question

Access経由でプログラムで記入しようとしているWord文書があります。ドロップダウンはWordのコンテンツコントロールです。私は1つのドロップダウンを除いてすべてを設定することができますし、問題となる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設定行は機能しますが、2番目の（ "Area"）は設定されません。完全なコードでは、 "Area"行が実行される前後にいくつかのドロップダウンが設定され、他のすべてが機能します。私はcontentcontrol IDが正しいことを再度確認しました。私は何かを逃していると確信していますが、それを見ることはできません。どのようなアイデアや何を見ての上の提案？

Answer 1

もちろん、投稿直後に問題が見つかりました。誰かがAccessに選択項目を入力していて、ドロップダウンと一致しませんでした。私はちょうどユーザーが応答を入力しないようにして、ドロップダウンの使用を強制する必要がありました。