[Resolvido]Inserir dados do Formulario no Word

fabianobetim 16/7/2018, 21:00

fabianobetim: Novato; Respeito às regras :

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

Mensagem nº1

[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** 16/7/2018, 21:42

Silvio

Silvio: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 5074
Registrado : 20/04/2011

Mensagem nº2

Re: [Resolvido]Inserir dados do Formulario no Word

Mensagem Silvio 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:
https://www.maximoaccess.com/t27707-resolvidoexportar-dados-formulario-e-tabela-para-o-word
https://www.maximoaccess.com/t32270-resolvidoexpotar-para-word-com-formatacao
https://www.maximoaccess.com/t32766-exportar-tabela-para-word
https://www.maximoaccess.com/t32999-exportar-tabela-do-access-para-o-word
https://www.maximoaccess.com/t33797-resolvidoenviando-dados-do-access-para-o-word

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) (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."

fabianobetim 17/7/2018, 12:33

fabianobetim

fabianobetim: Novato; Respeito às regras :

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

Mensagem nº3

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** 17/7/2018, 14:11

Silvio

Silvio: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 5074
Registrado : 20/04/2011

Mensagem nº4

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

fabianobetim 17/7/2018, 17:53

fabianobetim

fabianobetim: Novato; Respeito às regras :

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

Mensagem nº5

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** 17/7/2018, 18:02

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7919
Registrado : 15/03/2013

Mensagem nº6

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

fabianobetim 17/7/2018, 18:56

fabianobetim

fabianobetim: Novato; Respeito às regras :

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

Mensagem nº7

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** 18/7/2018, 17:14

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8449
Registrado : 05/11/2009

Mensagem nº8

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

fabianobetim 18/7/2018, 18:35

fabianobetim

fabianobetim: Novato; Respeito às regras :

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

Mensagem nº9

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** 19/7/2018, 10:59

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7919
Registrado : 15/03/2013

Mensagem nº10

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