[Resolvido]Exportar valor de uma checkbox para o modelo .DOC(WORD)

Olá,
Quero pedir antecipadamente desculpas ao moderador, caso meu tópico não esteja no local correto. Porém ao ler as regras e verificar os conteúdos não encontrei nada relacionado.

Estou com um problema da seguinte forma:
Tenho um código(VBA) e nele é executada a seguinte rotina: Após preenchido com os dados nas textbox, combobox e as checkbox, o usuário click no botão "GERAR WORD" acontecendo então que um modelo de .DOC abre para o usuário, já todo preenchido (estilo mala direta). Até então quase tudo funciona, exceto, minhas checkbox, ou seja, o modelo de .DOC não está recebendo seu valor, quando este, é VERDADEIRO.  

alguém conseguiria me ajudar? por favor.

segue o codigo para exempliciar meu problema:

Sub ABRE_PR()
'gera o arquivo doc do PR
Dim Nome As String
Dim Cont As Integer
Nome = Text_pr_nome
'Cont = LstGeral.ListItems.Count + 1

Static wd1 As Word.Application
Static wd1Doc As Word.Document
Set wd1 = New Word.Application
wd1.Visible = True

Set wd1Doc = wd1.Documents.Add(ThisWorkbook.path & "\BSB_16_000_SETOR_NOME.doc")

With wd1Doc
.FormFields("WNUMERO_PR").Range = text_pr_numero.Text
.FormFields("WNOME").Range = Text_pr_nome.Text
.FormFields("WACIDENTE").Range = check_acidente.value = true ou false
.FormFields("WCOMAFAST").Range = check_com_afast.value = true ou false
.FormFields("WSEMAFAS").Range = check_sem_afas.value = true ou false
.SaveAs2 "PR_17_" & text_pr_numero.Text & "_" & Text_pr_nome.Text
End With
End Sub

aqui na imagem um modelo do que eu esperava..

" />

agradeço pela atenção

Avelino Sampaio, boa tarde.

Sensacional. a opção .FormFields("WACIDENTE").CheckBox.Value = check_acidente.value, resolveu meu problema.

Muito obrigado.