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]Anexar registros a um documento Word

    Compartilhe
    avatar
    Julimar Alves
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 23/03/2017

    [Resolvido]Anexar registros a um documento Word

    Mensagem  Julimar Alves em Ter 9 Maio - 22:41

    Tenho um programa para cadastrar multas de trânsito.
    Para cada tipo de infração, possuo uma defesa respectiva escrita em Word.
    Por exemplo:

    Multa por ausência de cinto de segurança = documento com as contestações legais referentes a este tipo de infração.
    Multa por estacionamento em fila dupla = Outro documento com a defesa adequada.

    Nos documentos, altero os dados da pessoa e algumas vezes, alguma informação importante ao processo e os imprimo (São dezenas de tipos de documentos, baseados nos artigos do Código de Trânsito Brasileiro).

    Há uma forma de eu escolher o documento correspondente através de botões ou caixas no formulário e depois das alterações feitas, este novo documento permaneça anexado a este registro específico?

    Lembrando que a chave primária é o auto de infração, ou seja cod_AIT e os dados da pessoa e veículo, irei inserir através a automaticamente a partir do banco de dados.

    Desde já, agradeço a quem possa me orientar.


    avatar
    Julimar Alves
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 23/03/2017

    Resolvido

    Mensagem  Julimar Alves em Qua 10 Maio - 9:50

    Resolvido
    avatar
    Julimar Alves
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 23/03/2017

    Resolvido

    Mensagem  Julimar Alves em Qua 10 Maio - 9:52

    Private Sub gerarDoc_Click()
    'ahteixeira (2016) para MaximoAccess
    'Adaptado a partir do exemplo do colega Avelino Sampaio
    'veja a dica 75 - [Você precisa estar registrado e conectado para ver este link.]
    If IsNull(Me.cartaSel) Then MsgBox "Escolha o modelo da carta para gerar.", vbInformation, "": Exit Sub
    Dim wdApl As Object
    Dim strModelo As String
    Set wdApl = CreateObject("Word.Application")
    '--------------------------
    'Abre o arquivo do Word
    '--------------------------
    wdApl.Documents.Open FileName:=CurrentProject.Path & "\" & Me.cartaSel.Column(2)
    With wdApl
    'Posiciona o cursor no INDICADOR I1 e preenche
    .ActiveDocument.Bookmarks("I1").Select: .Selection.Text = Nz(Me.CPF_CNPJ)
    'Posiciona o cursor no INDICADOR I2 e preenche
    .ActiveDocument.Bookmarks("I2").Select: .Selection.Text = Nz(Me.Nome_RazaoSocial)
    '---------------------------------------------------------
    'Salva o documento preenchido no mesmo local do aplicativo
    '----------------------------------------------------------
    strLocal = CurrentProject.Path & "\" & Me.cartaSel.Column(1) & "-" & Nz(Replace(Me.CPF_CNPJ, " ", "")) & "-" & Format(Now, "hhmmss") & ".doc"
    .ActiveDocument.SaveAs strLocal ', Password:="123"
    '------------------
    'Fecha o documento
    '------------------
    .ActiveDocument.Close
    '-------------
    'Fecha o Word
    '-------------
    .Quit
    End With
    'Limpa a memória
    Set wdApl = Nothing
    '---------------------------------------------------------
    'Abre o documento preechido para visualização e impressão
    '---------------------------------------------------------
    Application.FollowHyperlink strLocal
    End Sub
    avatar
    Julimar Alves
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 23/03/2017

    Anexar registros a um documento Word

    Mensagem  Julimar Alves em Qui 31 Ago - 10:02

    Voltei a este tópico porque achei importante disponibilizar a solução para o problema citado, pois percebi que a maioria das soluções apresentada não atendem à criação de um texto dinâmico no Word e quando o fazem, são complicados para manipular e não são nem um pouco práticos.
    Criei um formulário de texto anexado aos cadastros, onde digito o corpo central a ser enviado para o documento pré-formatado e com parágrafos padrões já prontos. Desta forma, posso editar o texto a partir do formulário e enviar para o Word. O texto é enviado junto com os dados do cliente para uma consulta criar tabela, onde ele é um campo comum de mala direta, que por sua vez gera o documento. Importante ressaltar que criei um botão para abrir outro formulário onde posso criar vários registros com textos adaptados para várias situações no mesmo caso para serem arquivadas e utilizadas posteriormente.

    Private Sub defesapessoafisica_Click()
    Dim bc As database
    Dim tbl_lista As Recordset
    Set bc = CurrentDb()
    Set tbl_lista = bc.OpenRecordset("tbl_lista")
    Me!editardefesa = Me.editardefesa
    Set bc = Nothing
    Set tbl_lista = Nothing
    DoCmd.Save ' linha de comando para salvar
    DoCmd.RunCommand acCmdRefresh ' linha de comando para atualizar a tabela

    DoCmd.SetWarnings False
    DoCmd.OpenQuery "cst_criardefesa", acViewNormal, acEdit
    'comando close
    DoCmd.SetWarnings True
    Dim stDocName As String
    Dim stAppNameDOC As String
    stAppNameDOC = "C:\Program Files (x86)\Microsoft Office\Office14\WINWORD.EXE" & " " & "C:\TRANSIT\RECURSOS\recursobasepessoafisica.docx"
    Call Shell(stAppNameDOC, 1)
    Exit_defesapessoafisica_Click:
    Exit Sub
    Err_defesapessoafisica_Click:
    MsgBox Err.Description
    Resume Exit_defesapessoafisica_Click
    End Sub
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6505
    Registrado : 05/11/2009

    Re: [Resolvido]Anexar registros a um documento Word

    Mensagem  Alexandre Neves em Qui 31 Ago - 17:14

    Boa noite,
    Não percebi se o tema está Resolvido ou não
    Para dar por resolvido deve marcar o botão "Resolvido" no canto inferior direito do formulário (não altere o título)


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Julimar Alves
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 23/03/2017

    Anexar registros a um documento Word

    Mensagem  Julimar Alves em Qui 31 Ago - 18:33

    Resolvido

      Data/hora atual: Qua 22 Nov - 7:59