MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe
    avatar
    Leonardo Favale
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 05/04/2018

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

    Mensagem  Leonardo Favale em Ter 17 Jul 2018, 2:29 pm

    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 !
    avatar
    Leonardo Favale
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 05/04/2018

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

    Mensagem  Leonardo Favale em Ter 04 Set 2018, 2:43 pm

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

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 375
    Registrado : 15/05/2013

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

    Mensagem  maguim em Ter 04 Set 2018, 4:28 pm

    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.


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    Leonardo Favale
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 05/04/2018

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

    Mensagem  Leonardo Favale em Ter 04 Set 2018, 5:55 pm

    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 !
    avatar
    Leonardo Favale
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 05/04/2018

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

    Mensagem  Leonardo Favale em Sex 14 Set 2018, 6:10 pm

    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
    Anexos
    Recibo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (96 Kb) Baixado 8 vez(es)
    avatar
    Leonardo Favale
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 05/04/2018

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

    Mensagem  Leonardo Favale em Seg 17 Set 2018, 1:36 pm

    Alguém saberia me ajudar ?

    Obrigado
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10272
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em Seg 17 Set 2018, 3:12 pm

    Este foi o ultimo tópico de mesclar word;

    Veja se ajuda;

    [Você precisa estar registrado e conectado para ver este link.]



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Leonardo Favale
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 05/04/2018

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

    Mensagem  Leonardo Favale em Seg 17 Set 2018, 4:38 pm

    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..
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10272
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em Seg 17 Set 2018, 4:45 pm

    Abra o banco com a tecla shift pressionada.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Leonardo Favale
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 05/04/2018

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

    Mensagem  Leonardo Favale em Seg 17 Set 2018, 6:09 pm

    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
    Anexos
    Recibo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (92 Kb) Baixado 9 vez(es)

    flecha
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 259
    Registrado : 11/01/2012

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

    Mensagem  flecha em Seg 17 Set 2018, 8:08 pm

    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
    avatar
    Leonardo Favale
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 05/04/2018

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

    Mensagem  Leonardo Favale em Ter 18 Set 2018, 1:44 am

    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 ?

    flecha
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 259
    Registrado : 11/01/2012

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

    Mensagem  flecha em Ter 18 Set 2018, 12:51 pm

    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)
    avatar
    Leonardo Favale
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 05/04/2018

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

    Mensagem  Leonardo Favale em Ter 18 Set 2018, 1:42 pm

    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 !
    avatar
    Leonardo Favale
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 05/04/2018

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

    Mensagem  Leonardo Favale em Ter 18 Set 2018, 6:30 pm

    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 ?
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10272
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em Qui 20 Set 2018, 9:22 am

    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:
    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Leonardo Favale
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 05/04/2018

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

    Mensagem  Leonardo Favale em Sex 21 Set 2018, 1:54 am

    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?

    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10272
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em Sex 21 Set 2018, 10:42 am

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

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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Leonardo Favale
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 05/04/2018

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

    Mensagem  Leonardo Favale em Seg 24 Set 2018, 12:21 pm

    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 !
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10272
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em Seg 24 Set 2018, 12:50 pm

    Fico feliz.

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Ter 11 Dez 2018, 11:52 am