EDITAR ARQUIVOS DO WORD POR FORM.
Boa noite galera, tudo bom?
Bom sou novo em Vb ainda e gostaria de pedir uma ajuda a vocês.
Eu estou desenvolvendo um projeto para ir aprendendo.
Gostaria de perguntar se alguém sabe fazer o seguinte:
Por exemplo: Abro a tela de cadastro de Locador (no caso estou fazendo um sistema imobiliário). Eu gostaria de fazer assim.
Eu tenho um modelo de contrato de locação. Preciso colocar o Nome, RG, CPF, Endereço, Nome da Mulher, dados pessoais, Nome do Locatário, etc.
Eu queria que o que eu digitasse no campo nome do locatário por exemplo, sairia no lugar certo do documento do Word, o CPF, RG e tudo mais o que precisa saÃsse no lugar que eu precisaria digitar. E caso não fosse usar o campo marcar com um CheckBox que não vai usar o campo e ai ficaria um traço ( ------------ ) na frente.
Quem puder me dar essa dica agradeço muito.
Abraços, até mais.
Msn: vi.psy.tnb@hotmail.com
Bom sou novo em Vb ainda e gostaria de pedir uma ajuda a vocês.
Eu estou desenvolvendo um projeto para ir aprendendo.
Gostaria de perguntar se alguém sabe fazer o seguinte:
Por exemplo: Abro a tela de cadastro de Locador (no caso estou fazendo um sistema imobiliário). Eu gostaria de fazer assim.
Eu tenho um modelo de contrato de locação. Preciso colocar o Nome, RG, CPF, Endereço, Nome da Mulher, dados pessoais, Nome do Locatário, etc.
Eu queria que o que eu digitasse no campo nome do locatário por exemplo, sairia no lugar certo do documento do Word, o CPF, RG e tudo mais o que precisa saÃsse no lugar que eu precisaria digitar. E caso não fosse usar o campo marcar com um CheckBox que não vai usar o campo e ai ficaria um traço ( ------------ ) na frente.
Quem puder me dar essa dica agradeço muito.
Abraços, até mais.
Msn: vi.psy.tnb@hotmail.com
Qual a versão do office que você possui?
Bom dia Marcelo,
Eu possuo as versões 2007 e 2010 instaladas.
Eu possuo as versões 2007 e 2010 instaladas.
Bom dia colega é algo até relativamente simples veja, vou te ensinar pelo ofece2010 ok, primeiro crie o modelo de contrato no word
onde você for colocar o nome coloque desta maneira, ex:
...declaro para devidos fins que <NOME> , postador do rg <RG> .......
agora selecione o <NOME> , vá na inseir, e em link clique em INDICADOR
digite nome e clique em adicionar, depois faça o mesmo procedimento para o <RG>
agora salve o documento com o nome modelo
agora iremos ao VB
Crie um novo projeto, inclua dois textbox e um commandbutton
vá em project/references e selecione Microsoft Word 14.0 Object Library
e agora cole isto no no projeto
qualquer duvida é só postar
onde você for colocar o nome coloque desta maneira, ex:
...declaro para devidos fins que <NOME> , postador do rg <RG> .......
agora selecione o <NOME> , vá na inseir, e em link clique em INDICADOR
digite nome e clique em adicionar, depois faça o mesmo procedimento para o <RG>
agora salve o documento com o nome modelo
agora iremos ao VB
Crie um novo projeto, inclua dois textbox e um commandbutton
vá em project/references e selecione Microsoft Word 14.0 Object Library
e agora cole isto no no projeto
Private Sub Command1_Click()
Dim objDoc As Word.Document
Dim objWord As Word.Application
Set objWord = New Word.Application
Set objDoc = objWord.Documents.Open(App.Path & [Ô]\modelo.docx[Ô])
objDoc.Activate
objDoc.Bookmarks([Ô]NOME[Ô]).Range.Text = Text1.Text
objDoc.Bookmarks([Ô]RG[Ô]).Range.Text = Text2.Text
[txt-color=#007100][ô] abaixo o documento é salvo com o nome da pessoa para que não haja o risco de que se apage o modelo criado[/txt-color]
objWord.ActiveDocument.SaveAs App.Path & [Ô]\[Ô] & Text1.Text & [Ô].docx[Ô], wdWord2010
objWord.Documents.Open App.Path & [Ô]\[Ô] & Text1.Text & [Ô].docx[Ô][txt-color=#007100] [ô] documento aberto com as alterações[/txt-color]
Set objDoc = Nothing
Set objWord = Nothing
End Subqualquer duvida é só postar
MARCELO-TREZE
Obrigado pela ajuda, funcionou certinho.
Abraço.
Obrigado pela ajuda, funcionou certinho.
Abraço.
Colega por favor se duvida foi sanada feche o tópico
Tópico encerrado , respostas não são mais permitidas