アクセスからWordコンテンツコントロールを設定する

Question

私はドキュメントに使用する単語テンプレートを持っています。私はMS Accessからの単語のドキュメントのコンテンツコントロールを設定したいと思います。私は

ActiveDocument.ContentControls(14).Checked = True 
activedocument.ContentControls(1).DropdownListEntries.Item(3)enter code here 

、Wordでの項目を設定する方法を考え出ししかし、私はAccessから、私がコンテンツコントロールを呼び出す方法を見つけ出すカントことを実行しようとするとき。

これは私が使用したコードのブックマークを交換する場合、IVEはそれにコンテンツコントロールを配置しようとしましたが、運です：

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

With WordApp.Selection 

.GoTo what:=wdGoToBookmark, Name:="COMPANY" 
.TypeText [fac] 
'that works 

Dim oCtrl As ContentControl 
set oCtrl = .ContentControl(14) 
oCtrl.Checked = True 

私は、その後旨コンパイルエラー「メソッドまたはデータメンバが見つかりません」を取得。 2行目から最後の行にある「ContentControl」が強調表示されます。

私はコードで作業して以来、長い時間がかかっていますので、何か明白なことがあれば、私には容赦してください。

おかげで、

Answer 1

はしばらくの間、それを周りにプレイして修正を発見しました。

：ブックマークの交換文

.Selection.GoTo what:=wdGoToBookmark, Name:="COMPANY" 
.Selection.TypeText [fac] 

そして、チェックボックスのためにWithステートメント

With WordApp 

追加.Selectionから

dim wDoc as Word.Document 

削除.Selection：

を追加しました

ActiveDocument.ContentControls(6).Checked = True 

現在作業中です。