Enviar dados do Form para modelo de word. (usando uma check
Enviado: 10 Fev 2017 às 22:39
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, 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. 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
agradeço pela atenção
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, 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. 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
agradeço pela atenção