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


3 participantes

    [Resolvido]Dados de Formulário para Word (Caixa de Combinação)

    avatar
    maluco_sergio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 37
    Registrado : 09/11/2016

    [Resolvido]Dados de Formulário para Word (Caixa de Combinação) Empty [Resolvido]Dados de Formulário para Word (Caixa de Combinação)

    Mensagem  maluco_sergio 11/1/2017, 23:14

    Olá a todos,
    Boa Noite.

    Estou a trabalhar numa função que passa os dados de um formulário.
    Estou a usar o código seguinte que adaptei de um modelo aqui do Forum e funciona perfeitamente.
    Código:
    Private Sub btnGerarDoc_Click()
    Dim oApp As Object 'Cria uma variável objeto
    Dim PastaArq, ArqModelo

        'seta pasta do banco de dados
        PastaArq = [CurrentProject].[Path]
        'Indicar nome do arquivo
        ArqModelo = "Notificacao" & ".docx"
           
        ' Inicia o MS Word
        Set oApp = CreateObject("Word.Application") 'Cria e abre o objeto Word
        'oApp.Maximize
        ' Torna o MS Word visível
        oApp.Visible = True
       
       
        ' Abre o documento base
        oApp.Documents.Add (PastaArq & "\" & ArqModelo)
           
        'Move cada campo para o indicador definido no documento
        On Error Resume Next
        oApp.ActiveDocument.bookmarks("DataCorrespondencia").select
        oApp.Selection.Text = UCase(CStr(Forms!frmCorrespondenciaSaidaEditar_doc!Data))
        On Error Resume Next
        oApp.ActiveDocument.bookmarks("DestinatarioNome").select
        oApp.Selection.Text = UCase(CStr(Forms!frmCorrespondenciaSaidaEditar_doc!Entidade))
        On Error Resume Next
        oApp.ActiveDocument.bookmarks("Proave").select
        oApp.Selection.Text = UCase(CStr(Forms!frmCorrespondenciaSaidaEditar_doc!NUM_PROAVE))
             
        Set oApp = Nothing

    End Sub

    Neste modelo estou a usar apenas um modelo word, no caso "Notificacao.docx". Eu tenho uma caixa de combinação onde o utilizador escolhe o modelo a utilizar. A caixa de combinação está vinculada à tblModelosOficios.
    Queria que o código postado seleccionasse o documento consoante o valor da caixa de combinação.
    Estava a pensar criar uma Var com base em Dlookup. Mas não estou a conseguir.
    Consegui ser claro?
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Dados de Formulário para Word (Caixa de Combinação) Empty Re: [Resolvido]Dados de Formulário para Word (Caixa de Combinação)

    Mensagem  FabioPaes 12/1/2017, 02:27

    Basta construir uma cx COmbinação com o nome dos Modelos...

    Ex:
    Modelo1.doc;Modelo2.doc;Modelo3.doc


    Entao o usuario seleciona um desses Modelos...

    Deve mudar o codigo nessa linha:
    ArqModelo = "Notificacao" & ".docx"

    Para:

    ArqModelo = Me.CxCombinacao


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    maluco_sergio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 37
    Registrado : 09/11/2016

    [Resolvido]Dados de Formulário para Word (Caixa de Combinação) Empty Re: [Resolvido]Dados de Formulário para Word (Caixa de Combinação)

    Mensagem  maluco_sergio 14/1/2017, 09:58

    Bom dia.
    Worked like a charm...
    Às vezes complicamos o que simples...

    Obrigado por tudo!
    Abraço
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

    [Resolvido]Dados de Formulário para Word (Caixa de Combinação) Empty Re: [Resolvido]Dados de Formulário para Word (Caixa de Combinação)

    Mensagem  Alvaro Teixeira 14/1/2017, 10:33

    Olá a todos,
    Filipe é mesmo isso por vezes complicamos o simples.
    Fica abaixo link da mesma situação, caso outro membro tenha a mesma dúvida:
    https://www.maximoaccess.com/t28582-resolvidoescolher-documento-a-ser-preenchido
    Abraço a todos
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Dados de Formulário para Word (Caixa de Combinação) Empty Re: [Resolvido]Dados de Formulário para Word (Caixa de Combinação)

    Mensagem  FabioPaes 15/1/2017, 01:59

    Grato semhores! Ate a proxima se Deus quiser...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

    [Resolvido]Dados de Formulário para Word (Caixa de Combinação) Empty Re: [Resolvido]Dados de Formulário para Word (Caixa de Combinação)

    Mensagem  Alvaro Teixeira 25/1/2017, 08:48

    cheers

    Conteúdo patrocinado


    [Resolvido]Dados de Formulário para Word (Caixa de Combinação) Empty Re: [Resolvido]Dados de Formulário para Word (Caixa de Combinação)

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 21:42