USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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.
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página