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

    Compartilhe

    fabianobetim
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Inserir dados do Formulario no Word

    Mensagem  fabianobetim em 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?
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Inserir dados do Formulario no Word

    Mensagem  Silvio em 16/7/2018, 21:42

    Boa tarde, seja bem vindo ao fórum !

    Você quer exportar do Access para o Word ?

    Exemplos aqui não faltam, basta apenas adaptar as tuas necessidades:
    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Basta usar o sistema de busca que temos aqui.

    Bons estudos a ti.


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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    fabianobetim
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]Inserir dados do Formulario no Word

    Mensagem  fabianobetim em 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
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Inserir dados do Formulario no Word

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

    fabianobetim
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]Inserir dados do Formulario no Word

    Mensagem  fabianobetim em 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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Inserir dados do Formulario no Word

    Mensagem  ahteixeira em 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

    fabianobetim
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]Inserir dados do Formulario no Word

    Mensagem  fabianobetim em 17/7/2018, 18:56

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

    Respeito às Regras 100%

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

    Re: [Resolvido]Inserir dados do Formulario no Word

    Mensagem  Alexandre Neves em 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

    fabianobetim
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]Inserir dados do Formulario no Word

    Mensagem  fabianobetim em 18/7/2018, 18:35

    ok alexandre é q sou novo aqui no forum to me acostumando com ele ainda
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Inserir dados do Formulario no Word

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

    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

    fabianobetim
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]Inserir dados do Formulario no Word

    Mensagem  fabianobetim em 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.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Inserir dados do Formulario no Word

    Mensagem  ahteixeira em 23/7/2018, 18:49

    cheers

      Data/hora atual: 11/12/2018, 11:59