[Resolvido]Função Mesclar Documento no Word Automaticamente

Bom dia, Pessoal !

Gostaria estou desenvolvendo um sistema para meu escritório imobiliário com muito caro custo e estudos, pois sou novo em Acess e programação VBA,  criei um contrato através do Word e fiz a mala direta, já com os campos respectivos da minha tabela no Acess, porém gostaria de saber se existe algum código VBA para que eu consiga ao clicar em um botão de nome "Gerar contrato" por exemplo, ele fazer automaticamente o processo de mala direta (mesclar já os registros no caso), e depois imprimir, ou visualizar antes, mesmo que para isso ele abra o Word visivelmente antes ou de preferencia que faça isso direto sem ter que abrir o Word, somente ao clicar já imprima os registros mesclados no caso. Só estou conseguindo fazer ele abrir o arquivo do Word com esse botão.. mas ai ele abre o Word, aparecendo o contrato com os campos e preciso manualmente realizar o processo de mescla de registro para depois imprimir, ai tudo já via Word.

Desculpem já dei uma procurada no fórum, achei coisas abrangentes, mas não entendi o funcionamento do código para poder aplicar no meu projeto.

Se alguém poder me ajudar agradeço !

Desde já, Obrigado !

Bom dia ! Ainda continuo com esse problema alguém sabe uma forma de me ajudar ?

opaaa

tudo bem?


da uma pesquisada sobre indicadores de word formulário access no forum. tem any tipos de exemplo.

recentemente eu fiz mesma pergunta no forum.

basicamente o transporte de formulário é feito por indicadores no word.


tem um exemplo legal do avelino.

abraços.

Bah legal, vou dar uma pesquisada, sim o difícil as vezes também no achar é a forma de como buscar, vou seguir essa sua ideia, mas por enquanto então vou deixar ativo aqui ! Muito obrigado !

Boa tarde, olha desculpem talvez minha ignorância, mas não consegui achar nada ou adaptar ao meu projeto original, então para ver se alguém consegue me ajudar dando uma luz, criei um modelo ai básico para estudo, que depois irei passar para o meu projeto original a adaptação.

Se alguém poder me ajudar...

Gostaria de gerar esse recibo, conforme exemplo no word, ou seja, já mesclar eles automaticamente ao clicar no botão gerar ali.

Desde já agradeço e desculpem se é um assunto repetido, mas de fato como não entendo não consegui me fazer valer das pesquisas e outros exemplos que encontrei aqui, talvez assim com o modelo visual fique melhor.

Desde já agradeço ai a quem puder me ajudar.

Abraço a todos

Alguém saberia me ajudar ?

Obrigado

Este foi o ultimo tópico de mesclar word;

Veja se ajuda;

https://www.maximoaccess.com/t34251-resolvidoformulario-x-rotina-word-com-erro-na-variavel

Pois então eu vi esse tópico, poderia ser que ajudaria.. mas não consigo abrir o banco de dados editável no acess, parece que está desabilitado as edições para que eu possa ver e tentar entender para passar para o meu projeto..

Abra o banco com a tecla shift pressionada.

Bah obrigado consegui fazer funcionar, porém tenho algumas dúvidas que são estas :

Ao Gerar o doc., como faço para digamos criar um código para após a geração ao invés de fechar abrir esse arquivo especifico gerado ? Sabendo que, pode ser salvo com "N" nomes, neste caso está com base no "Código".  Pois desta forma tenho que ir manualmente até a pasta especifica e abrir o arquivo.

Assim como também gostaria de saber como ao clicar em gerar o arquivo, ele abrir na frente da tela (na frente do Acess) ele já gerado.

Vou postar meu exemplo arrumado agora, O meu código ficou assim dai (apenas para geração):

Private Sub Gerarword_Click()
'Inicia o MS Word
Set oApp = CreateObject("Word.Application") 'Cria e abre o objeto Word
With oApp
'Torna o MS Word visível
Visible = True
'Abre o documento base
.Documents.Open ("C:\Users\Usuário\Desktop\Recibo\Recibo.doc")

'Move cada campo para o indicador definido no documento
.ActiveDocument.Bookmarks("Taxa01").Select
.Selection.Text = Forms!Recibo!Taxa01
.ActiveDocument.Bookmarks("Valor01").Select
.Selection.Text = Forms!Recibo!Valor01

'Salva o arquivo gerado
.ActiveDocument.SaveAs ("C:\Users\Usuário\Desktop\Recibo\") & "\" & "ReciboPronto " & Replace(Me.Código, "/", "-") & ".doc"
MsgBox "Documento WORD gerado com sucesso...", vbInformation
'Fecha o documento
.ActiveDocument.Close
.WindowState = wdWindowStateMaximize
'Fecha o Word
oApp.Quit

End With

End Sub

Crie uma pasta em C: com o nome de Word, aqui será gravado os docs gerados e ali serão buscados para abrir.

Altere ou inclua as linha em Negrito em seu código do gerar doc word:

'Inicia o MS Word
Set oApp = CreateObject("Word.Application") 'Cria e abre o objeto Word
 
 NovoCaminho = "C:\Word"

With oApp
'Torna o MS Word visível
Visible = True
'Abre o documento base
' .Documents.Open ("C:\Users\Usuário\Desktop\Recibo.doc") -----> exclua essa linha, substitua pela de baixo.

.Documents.Open (CurrentProject.Path & "\Recibo.doc")

'Move cada campo para o indicador definido no documento
.ActiveDocument.Bookmarks("Taxa01").Select
.Selection.Text = Forms!Recibo!Taxa01
.ActiveDocument.Bookmarks("Valor01").Select
.Selection.Text = Forms!Recibo!Valor01

'Salva o arquivo gerado

.ActiveDocument.SaveAs ("C:\Word\" & Me.Código & ".doc")

MsgBox "Documento WORD gerado com sucesso...", vbInformation

'Fecha o documento
.ActiveDocument.Close
        oApp.Quit
        Set oApp = Nothing
'Fecha o Word

'Abre o documento
      'Winword em qualquer computador

      Shell ("WINWORD" & " " & """C:\word\" & Me.Código & ".doc"""), vbMaximizedFocus '
   


End With
Set oApp = Nothing

Ah sim, obrigado, outra pergunta é preciso colocar algo caso o campo for em branco ? em caso tipo vamos dizer que tenha apenas preenchido o campo valor01 e taxa estiver em branco ? Pois deu erro nos campos que não tem nada... assim como na formatação do Word em dinheiro por exemplo so aparece o valor sem a vírgula..tipo ao invés de R$ 1.500,00 (fica assim: 1500) sem o R$ também isso é assim ou tem como formatar ?

Para o campo vazio deve colocar um teste do campo com IF

Exemplo:

If Not IsNull(Me.SeuCampo) Then
.activedocument.Bookmarks("SeuCampo").Select
.selection.Text = Trim(CStr(Me.SeuCampo))
Else
.activedocument.Bookmarks("SeuCampo").Select
.selection.Text = ""
End If


Para formatar tem que usar o FORMAT

Tente adaptar esse, modifique a formatação

.selection.Text = Trim(CStr(Format(Forms!FrmMaterial![SeuCampo], "###\.###\,##")))

Coloque o R$ no RECIBO (matriz)

Blz !! A formatação na verdade havia conseguido da seguinte forma, não sei se está correto também :

.activedocument.Bookmarks("Valor01").Select
.selection.Text = (Format(Valor01, "R$ #,##00.00"))

Funcionou aqui assim, porém não sei como formatar tipo CPF, RG ? é a mesma lógica pelo que andei vendo não ? troca-se o ponto por , e a virgula por . no caso é isso ? e os números substituo por "#" ?

RG: 00.000.0000-0 seria: ##\.###\.####\-# (Consegui fazer funcionar, mas também só testei com numeros sem começar com "0"s)
CPF: 000.000.000-00 seria: ###\.###\.###\-## (Consegui desta forma porém para CPFs que começam com tipo 000.111.111-22 ele simplesmente tira os "0"s da frente e mantem o resto do numero como arrumar isso ?)

Abraço !

Consegui assim:

RG: 00.000.0000-0 seria: ##\.###\.####\-# (Consegui fazer funcionar, mas também só testei com numeros sem começar com "0"s)
CPF: 000.000.000-00 seria: ###\.###\.###\-## (Consegui desta forma porém para CPFs que começam com tipo 000.111.111-22 ele simplesmente tira os "0"s da frente e mantem o resto do numero como arrumar isso ?)


Como arrumar a formatação dos CPFs ou RGs começando com 0 ?

Bom dia !

CAMPO TIPO DATA: {CAMPODATA \@ "dd/MM/yyyy"}

CAMPO TIPO VALOR: {MERGEFIELD "CAMPOVALOR" \# R$ #.###,00}

CAMPO TIPO TEXTO(CEP): {MERGEFIELD CAMPOCEP \# "00000'-'000"}

CAMPO TIPO TEXTO(CPF): {MERGEFIELD CAMPOCPF \# "000'-'000'.'000'-'00"}

Ou veja:
https://www.maximoaccess.com/t19431-resolvidoformatacao-do-cpf-na-mesclagem-com-o-word

Ok, mas isso não serve apenas para os campos de mesclagem por mala direta ? Pois por indicadores como abro a opção para editar assim no documento do Word?

É apenas para você ver a formatação para não perder os zeros;

"000\.000\.000\-00"

Ah sim muito obrigado !! Era isso mesmo !! Havia feito a formatação mas usando # ao invés do "0" agora troquei e funcionou !!

Abraço !

Fico feliz.

Obrigado pelo retorno o forum agradece.