|
|
|

|

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

|