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]Inserir dados do Formulario no Word

    avatar
    fabianobetim
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 04/06/2018

    [Resolvido]Inserir dados do Formulario no Word Empty [Resolvido]Inserir dados do Formulario no Word

    Mensagem  fabianobetim 16/7/2018, 21:00

    Boa tarde gostaria de uma ajuda estou com o uma dificuldade.
    como que eu faço para fazer que os dados do Formulário apareçam no Word?
    Exemplo tenho uma Declaração digitada com os seguintes dados: Nome, nacionalidade, profissão, endereço, bairro, cidade e estado. Gostaria de fazer esses dados aparecerem no documento?
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    [Resolvido]Inserir dados do Formulario no Word Empty Re: [Resolvido]Inserir dados do Formulario no Word

    Mensagem  Silvio 16/7/2018, 21:42



    Última edição por ahteixeira em 17/7/2018, 18:10, editado 2 vez(es) (Motivo da edição : acréscimo de link)


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    fabianobetim
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 04/06/2018

    [Resolvido]Inserir dados do Formulario no Word Empty Re: [Resolvido]Inserir dados do Formulario no Word

    Mensagem  fabianobetim 17/7/2018, 12:33

    Bom dia Silvio eu encontrei um código e adequei no que eu precisa mas ele esta dando erro:

    erro em tempo de execução '424'

    na linha que esta em negrito e também não esta puxando os dados (mas o word esta abrindo com o documento normal quando clico no botão) o que sera que esta errado poderia me ajudar por favor.

    Código:
    Private Sub cmdProcuracao_Click()
    Dim oApp As Object 'Cria uma variável objeto
    Dim PastaArq, ArqModelo

       'seta pasta do banco de dados
       PastaArq = Desktop
       'Indicar nome do arquivo
       'Requerimento Padrão. Argumentos: Nome, Nacionalidade, Profissão, Estado Civil, RG, CPF, Endereço, Bairro, Cidade, Estado'
       ArqModelo = "PROCURAÇÃO- 2015 - PADRÃO.dotx"
           
       ' Inicia o MS Word
       Set oApp = CreateObject("Word.Application") 'Cria e abre o objeto Word
       ' Torna o MS Word visível
       oApp.Visible = True
       ' Abre o documento base
       oApp.Documents.Add ("C:\Users\financeiro\Desktop\PROCURACAO-2015-PADRAO.dotx")
           
       'Move cada campo para o indicador definido no documento
       oApp.ActiveDocument.Bookmarks("Nome").Select
       oApp.Selection.Text = (argNome)
       oApp.ActiveDocument.Bookmarks("Nacionalidade").Select
       oApp.Selection.Text = (argNacionalidade)
    [b]   pp.ActiveDocument.Bookmarks("Estado Civil").Select
        oApp.Selection.Text = (argEstadoCivil)[/b]
       pp.ActiveDocument.Bookmarks("RG").Select
       oApp.Selection.Text = (argRG)
       pp.ActiveDocument.Bookmarks("CPF").Select
       oApp.Selection.Text = (argCPF)
       pp.ActiveDocument.Bookmarks("Endereço").Select
       oApp.Selection.Text = (argEndereço)
       pp.ActiveDocument.Bookmarks("Bairro").Select
       oApp.Selection.Text = (argBairro)
       pp.ActiveDocument.Bookmarks("Cidade").Select
       oApp.Selection.Text = (argCidade)
       pp.ActiveDocument.Bookmarks("Estado").Select
       oApp.Selection.Text = (argEstado)
       
       oApp.Application.Quit

       Set oApp = Nothing
    End Sub
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    [Resolvido]Inserir dados do Formulario no Word Empty Re: [Resolvido]Inserir dados do Formulario no Word

    Mensagem  Silvio 17/7/2018, 14:11

    Bom dia...

    Não tem um espaço entre as palavras ?
    EstadoCivel ou Estado Civel ?

    Ambos tem que ser iguais !


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    fabianobetim
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 04/06/2018

    [Resolvido]Inserir dados do Formulario no Word Empty Re: [Resolvido]Inserir dados do Formulario no Word

    Mensagem  fabianobetim 17/7/2018, 17:53

    Boa tarde Silvio!!!

    Silvio ja encontrei o erro e ja fiz o codigo VBA funcionar, e no EstadoCivil ja tentei das duas maneira e ele nao puxa o dado agora estou vendo se nao digitei nada de errado na tabela
    muito obrigado pela ajuda
    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]Inserir dados do Formulario no Word Empty Re: [Resolvido]Inserir dados do Formulario no Word

    Mensagem  Alvaro Teixeira 17/7/2018, 18:02

    Olá a todos,

    Fabiano Betim, sei que é membro novo, bem-vindo ao fórum.
    O título do tópico só devemos colocar na primeira mensagem, depois o sistema repete automaticamente.
    Já procedi à retificação.

    Abraço a todos e bons estudos
    avatar
    fabianobetim
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 04/06/2018

    [Resolvido]Inserir dados do Formulario no Word Empty Re: [Resolvido]Inserir dados do Formulario no Word

    Mensagem  fabianobetim 17/7/2018, 18:56

    ok e quero parabenizar os membros do grupo pela ajuda
    e muito obrigado
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Inserir dados do Formulario no Word Empty Re: [Resolvido]Inserir dados do Formulario no Word

    Mensagem  Alexandre Neves 18/7/2018, 17:14

    Boa tarde, fabiobetim

    Eliminei-lhe a outra dúvida por não respeitar as normas do fórum
    Ainda tem dúvidas sobre a ajuda que criou este tema? dê continuidade e não prolifere temas repetidos, marque "Resolvido" quando acabar a dúvida


    .................................................................................
    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
    fabianobetim
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 04/06/2018

    [Resolvido]Inserir dados do Formulario no Word Empty Re: [Resolvido]Inserir dados do Formulario no Word

    Mensagem  fabianobetim 18/7/2018, 18:35

    ok alexandre é q sou novo aqui no forum to me acostumando com ele ainda
    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]Inserir dados do Formulario no Word Empty Re: [Resolvido]Inserir dados do Formulario no Word

    Mensagem  Alvaro Teixeira 19/7/2018, 10:59

    Olá a todos,

    Fabiano Betim, estamos todos cá para ajudar.
    Não respondeu à questão do colega, a dúvida ficou esclarecida?

    Se sim, não se esqueça de dar o tópico como Resolvido, veja como fazer:
    https://www.maximoaccess.com/t860-resolucao-de-topicos

    Caso ainda não esteja resolvida deve dar mais detalhes, se possível disponibilize a base de dados com a parte envolvida na questão para se testar.

    Abraço
    avatar
    fabianobetim
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 04/06/2018

    [Resolvido]Inserir dados do Formulario no Word Empty Re: [Resolvido]Inserir dados do Formulario no Word

    Mensagem  fabianobetim 19/7/2018, 12:47

    Bom dia a todos quero agradecer pela ajuda de todos. e pedir desculpa pelos erros que tive aqui no forum.
    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]Inserir dados do Formulario no Word Empty Re: [Resolvido]Inserir dados do Formulario no Word

    Mensagem  Alvaro Teixeira 23/7/2018, 18:49

    cheers

    Conteúdo patrocinado


    [Resolvido]Inserir dados do Formulario no Word Empty Re: [Resolvido]Inserir dados do Formulario no Word

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 01:18