INSERIR TEXTO DE UMA TABELA DO ACCESS NO WORD
Boa dia pessoal, estou com o seguinte problema!
Trabalho um aplicativo que le um banco de dados com alunos e pega o nome para gerar uma Declaracao no Word,
1º estou com dificuldade de editar o Word nop VB6
2º como devo inserir um campo de uma tabela do access no Word.
Alguem pode me ajudar?
Caro Marcelo
Este: text1.text -> Vem do meu form
e este ?
e uma caixa de texto no doc Word? Bookmarks([Ô]Data[Ô]).Range.Text
ja inseri a caixa de texto no Word mas nao tem esta Propriedade .Range vc pode me ajudar?
objDoc.Bookmarks([Ô]Data[Ô]).Range.Text = text1.text
Trabalho um aplicativo que le um banco de dados com alunos e pega o nome para gerar uma Declaracao no Word,
1º estou com dificuldade de editar o Word nop VB6
2º como devo inserir um campo de uma tabela do access no Word.
Alguem pode me ajudar?
Caro Marcelo
Este: text1.text -> Vem do meu form
e este ?
e uma caixa de texto no doc Word? Bookmarks([Ô]Data[Ô]).Range.Text
ja inseri a caixa de texto no Word mas nao tem esta Propriedade .Range vc pode me ajudar?
objDoc.Bookmarks([Ô]Data[Ô]).Range.Text = text1.text
colega não sei extamente o que deseja mas veja como pode proceder
faça tipo mala direta, se ja sabe como exibir dados de uma tabela em campos textos basta ria fazer isto depois
Inserir dados das textbox’s no Word (Mala direta)
1 - Crie um arquivo no Word, um modelo de carta, um contrato de aluguel..., o qual vc irá sempre preencher apenas os campos (nome, endereço...)
2 - Ponha o cursor no local onde deve aparecer o conteúdo a ser preenchido (nome, endereço, telefone...) pelos dados do recordset que estarão visiveis nas textbox do form.
3 - Na carta ( Word) vá no menu inserir
4 - indicador, criar um nome de indicador e referenciar no comando abaixo na devida textbox)
faça tipo mala direta, se ja sabe como exibir dados de uma tabela em campos textos basta ria fazer isto depois
Inserir dados das textbox’s no Word (Mala direta)
1 - Crie um arquivo no Word, um modelo de carta, um contrato de aluguel..., o qual vc irá sempre preencher apenas os campos (nome, endereço...)
2 - Ponha o cursor no local onde deve aparecer o conteúdo a ser preenchido (nome, endereço, telefone...) pelos dados do recordset que estarão visiveis nas textbox do form.
3 - Na carta ( Word) vá no menu inserir
4 - indicador, criar um nome de indicador e referenciar no comando abaixo na devida textbox)
Private Sub Command1_Click()
Dim objDoc As Word.Document
Set objWord = New Word.Application
objWord.Visible = True
Set objDoc = objWord.Documents.Open(App.Path & [Ô]Nome_do_DOC.doc[Ô])
objDoc.Activate
objDoc.Bookmarks([Ô]Data[Ô]).Range.Text = text1.text
objDoc.Bookmarks([Ô]Numero[Ô]).Range.Text = text2.text
objDoc.Bookmarks([Ô]esquema[Ô]).Range.Text = Text3.Text
Set objDoc = Nothing
Set objWord = Nothing
End Sub
Tópico encerrado , respostas não são mais permitidas