액세스에서 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 

내가 다음 내용의 컴파일 오류 "메서드 나 데이터 구성원을 찾을 수 없습니다" . 두 번째 줄부터 마지막 ​​줄까지 "ContentControl"이 강조 표시됩니다.

나는 코드로 작업 한 이래로 오랜 시간이 걸렸으므로 명백한 것이 없으면 실례합니다.

감사합니다.

Answer 1

잠시 동안 놀아 봤습니다.

추가 : 북마크에

With WordApp 

추가 .Selection 문으로부터 .Selection을 제거

dim wDoc as Word.Document 

교체 문

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

그리고 다음의 체크 박스의 :

ActiveDocument.ContentControls(6).Checked = True 

이제 작업 중입니다.