[Resolvido]Mala Direta Word x Access

Boa tarde

Mala direita com word x access eu já fiz, mais eu estou com um problema.

Tenho um controle de receitas onde contas as contas a receber e apagar de cada cliente. Estou emitindo no word uma carta de cobrança. Mais o problema é o seguinte:

Como eu faço para pegar a contas a receber do cliente selecionado e mandar para o word um abaixo do outro ( sendo que tenho cliente esta devendo 3 mes ou mais).

Por exemplo:

Tenho um cliente que esta com debito 3 meses, ai no relatório no word tenho que importar uma consulta com os debitos, dessa forma:

Data Vencimento..Descriminação.........................Competencia..Valor R$
01/03/2015.......Pagamentos de Honorarios Contabeis....03/2015......300,00
01/04/2015.......Pagamentos de Honorarios Contabeis....04/2015......300,00
01/05/2015.......Pagamentos de Honorarios Contabeis....05/2015......300,00

Código:

Public Sub CartaCobrança()
Dim DocWord As Object
  Set DocWord = CreateObject("Word.Application")
    With DocWord
    .visible = True
    .WindowState = wdWindowStateMaximize
    .Documents.Add Template:=CurrentProject.Path & "\Relatorios\CartaCob.doc", NewTemplate:=False, DocumentType:=0
        .ActiveDocument.Bookmarks("cidade").Select
        .Selection.Text = Forms!frmContratos!ListaClientes.Column(9)
        .ActiveDocument.Bookmarks("data").Select
        .Selection.Text = Date
       
    If Forms!frmContratos!Tipo = "CNPJ" Then
        .ActiveDocument.Bookmarks("tipo").Select
        .Selection.Text = "A empresa"
    ElseIf Forms!frmContratos!Tipo = "CPF" Then
        .ActiveDocument.Bookmarks("tipo").Select
        .Selection.Text = "Ilmo(a) Sr(ª)"
    End If
   
        .ActiveDocument.Bookmarks("nome").Select
        .Selection.Text = Forms!frmContratos!ListaClientes.Column(1)
End With
      Set DocWord = Nothing
  Exit Sub
  MsgBox ("Falta dados!")

End Sub

háno access a opção de se criar um relatorio da mesma forma que você quer, porem sendo exportado em pdf anexado no corpo do e-mail. O que você precisa só pode ser enviado se for no formato .doc ou pode ser de outra forma?

Boa Tarde, obrigado por responder a minha pergunta.

Bom, eu prefiro no formato .doc, por que as vezes precisa editar (quando a lista de debitos é grande).

pense por outro lado: caso você envie este relatorio em Word, vai dar a possibilidade do cliente alterar os dados depois de recebido e alterar a integridade dos dados enviados pelo sistema. uma vez enviado no formato word, ele não terá alterar o que você mandou a não ser que peça novamente ao sistema. Caso seja em .pdf, tenho um exemplo que posso está te enviando.

Olá!

A solução esta neste tópico:

http://www.redeaccess.com.br/viewtopic.php?f=13&t=12

Rubens, podemos trabalhar com senha no documento do Word para que não haja alterações. Veja este tópico:

http://comunidade.itlab.com.br/eve/forums/a/tpc/f/273606921/m/7391034972?r=6861057972#6861057972

e este:

http://comunidade.itlab.com.br/eve/forums/a/tpc/f/273606921/m/969609973?r=219607183#219607183

Sucesso!

Solução no forum do Avelino Sampaio.