从Access设置Word内容控件

Question

我有一个用于文档的单词模板。我想从MS Access中设置word文档中的内容控件。我想出了如何在Word中设置项目，

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

但是当我尝试从Access中执行此操作时，我无法弄清楚如何调用内容控件。

这是我在替换书签时使用的代码，我试图将内容控件放入其中，但没有运气：

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

然后我收到一个编译错误，说明＆＃34;找不到方法或数据成员＆＃34;。使用＆＃34; ContentControl＆＃34;在第二行到最后一行突出显示。

自从我使用代码以来已经很长时间了，所以如果有明显的问题，请原谅我。

感谢，

Answer 1

玩了一会儿，发现了修复。

添加了：

dim wDoc as Word.Document

从With语句

中删除.Selection

With WordApp

添加。书签替换语句的选择

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

然后选中复选框：

ActiveDocument.ContentControls(6).Checked = True

现在正在工作。