Fazer Mala Direta com Word (preenchendo Cartas, Minutas)

[Macêdo]

1 - Crie um arquivo no Word, um modelo de carta, um contrato de aluguel..., o qual você 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.

[Flecha]

Macêdo,

Coloquei essa sub no meu projeto e esta dando erro de variavel não defenida objWord na linha:

Set objWord = New Word.Application

Faltou

Dim objWord as Word.Applicattion

Ai beleza deu certo.

Obrigado

Flecha

Editado Maio 10, 2009 por Flecha

[kuroi]

flecha isso é porque você pos Option Explicit não??

se você não puser ai não precisa dessa linha como o macedo postou.