MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


4 participantes

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

    Leonardo Favale
    Leonardo Favale
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Leonardo Favale 17/7/2018, 15:29

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Leonardo Favale 4/9/2018, 15:43

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  maguim 4/9/2018, 17:28

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Leonardo Favale 4/9/2018, 18:55

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Leonardo Favale 14/9/2018, 19:10

    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
    [Resolvido]Função Mesclar Documento no Word Automaticamente AttachmentRecibo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (96 Kb) Baixado 21 vez(es)
    Leonardo Favale
    Leonardo Favale
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Leonardo Favale 17/9/2018, 14:36

    Alguém saberia me ajudar ?

    Obrigado
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 17/9/2018, 16:12



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

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Função Mesclar Documento no Word Automaticamente Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Função Mesclar Documento no Word Automaticamente Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Função Mesclar Documento no Word Automaticamente Folder_announce_new Instruções SQL como utilizar...
    Leonardo Favale
    Leonardo Favale
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Leonardo Favale 17/9/2018, 17:38

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 17/9/2018, 17:45

    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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Função Mesclar Documento no Word Automaticamente Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Função Mesclar Documento no Word Automaticamente Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Função Mesclar Documento no Word Automaticamente Folder_announce_new Instruções SQL como utilizar...
    Leonardo Favale
    Leonardo Favale
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Leonardo Favale 17/9/2018, 19:09

    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
    [Resolvido]Função Mesclar Documento no Word Automaticamente AttachmentRecibo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (92 Kb) Baixado 18 vez(es)
    avatar
    flecha
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  flecha 17/9/2018, 21:08

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Leonardo Favale 18/9/2018, 02:44

    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 ?
    avatar
    flecha
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  flecha 18/9/2018, 13:51

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Leonardo Favale 18/9/2018, 14:42

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Leonardo Favale 18/9/2018, 19:30

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 20/9/2018, 10:22

    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


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

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Função Mesclar Documento no Word Automaticamente Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Função Mesclar Documento no Word Automaticamente Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Função Mesclar Documento no Word Automaticamente Folder_announce_new Instruções SQL como utilizar...
    Leonardo Favale
    Leonardo Favale
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Leonardo Favale 21/9/2018, 02:54

    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?

    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 21/9/2018, 11:42

    É 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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Função Mesclar Documento no Word Automaticamente Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Função Mesclar Documento no Word Automaticamente Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Função Mesclar Documento no Word Automaticamente Folder_announce_new Instruções SQL como utilizar...
    Leonardo Favale
    Leonardo Favale
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Leonardo Favale 24/9/2018, 13:21

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 24/9/2018, 13:50

    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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Função Mesclar Documento no Word Automaticamente Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Função Mesclar Documento no Word Automaticamente Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Função Mesclar Documento no Word Automaticamente Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 22:18