Access(2013)의 부울 값을 기반으로 Word(2013)에 상용구(또는 Quickpart) 삽입

Question

인터넷 어디에서도 이에 대한 정보를 찾지 못했습니다(적어도 작동하는 정보는 있습니다. 이에 대한 자세한 내용은 잠시 후).

내가 하려는 것은 Access Form에서 만든 버튼을 누르면 Word에서 docx를 열고 여러 TRUE/FALSE 확인란을 기반으로 특정 rtf 단락(특정 지점)으로 채우는 것입니다. 현재 액세스 양식에 열려 있는 기록입니다.

Word docx에 값을 전달하는 데 사용되는 액세스 코드:

함수 OpenWord(conPath As String)

Appword를 Word.Application으로 희미하게 표시

Dim 문서를 Word.Document로

오류 발생 시 다음 재개

오류.지우기

appword = GetObject(, "word.application") 설정

Err.Number <> 0이면

appword 설정 = 새 Word.Application

appword.Visible = 참

종료 조건

doc = appword.Documents.Open(conPath, , True) 설정

문서 포함

.FormFields("TextName").Result = 나.이름

.FormFields("TextAnotherName").Result = Me.AnotherName

.FormFields("TextBoolean1").Result = Me.Boolean1

.FormFields("TextBoolean2").Result = Me.Boolean2

.FormFields("TextBoolean3").Result = Me.Boolean3

끝

appword.ActiveWindow.View.Type = wdPrintView

appword.Visible = 참

appword.활성화

문서 설정 = 없음

appword 설정 = 없음

위의 내용은 개발자 > 레거시 > 텍스트 양식 필드를 통해 Word docx에 이름을 전달하는 데 효과적입니다. 부울 값도 표시됩니다(예: TRUE의 경우 -1, FALSE의 경우 0). 내가하려는 것은 다음과 같습니다.

IF {TextBoolean1} = "0" "{ AUTOTEXT someparagraph}" ""

이 인터넷 제안은 작동하지 않습니다.

요약하자면: Word 2013에서 Access에서 전달된 부울을 기반으로 문서의 미리 정의된 위치에 미리 정의된 단락(자동 텍스트 또는 빠른 부분 구성 블록)을 삽입하려면 무엇이 필요합니까? (이것을 하는 방법은 무엇입니까?)

여러분의 친절한 도움에 감사드립니다. 이로 인해 일주일 동안 다양한 성과 없는 방법을 시도하면서 당황하게 되었습니다.

당황하다

Answer 1

첫째, 대신 Access 데이터베이스의 메일 병합을 사용하고 매크로를 통해 이를 시작하면 매크로의 많은 코드를 단순화할 수 있다고 생각합니다.

여기에 표시된 IF 필드의 필드 코드가 작동해야 합니다. 일반 대괄호뿐만 아니라 CTRL+를 클릭하여 특수 필드 대괄호로 코드를 둘러쌌는지 확인하세요 .F9