|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Fazer Mala Direta com Word (preenchendo Cartas, Minutas)
|
 |
|
|
|
Postada em 10/10/2007 por JOM
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
Data, numero e esquema, são os indicadores criados no word
quando clicar no botão os dados constantes nas text's serão impressos nos locais indicados no modelo do Word.
|
|
|
|
|
