none
Erro de mailMerge com vb6 RRS feed

  • Pergunta

  • Amigos

    estou com problemas de efetuar o mail Merge entre documentos word, atraves de comandos do vb6, de acordo com o codigo abaixo:

    Dim objWord As Object
    Dim objWord_doc As Object
    Dim objWord_txt As Object

    Dim i As Integer
    Dim lselect As Integer
           
        Set objWord = CreateObject("Word.Application")
        Set objWord_doc = CreateObject("Word.Document")
        Set objWord_txt = CreateObject("Word.Document")
        'objWord.Visible = True
        Set objWord_txt = objWord.Documents.Open(pNome_TXT, False, True)
        For i = 0 To UBound(pText)
            objWord_txt.Range.InsertAfter (pText(i))
            If i < UBound(pText) Then
               objWord_txt.Range.InsertParagraphAfter
            End If
        Next
        Set objWord_doc = objWord.Documents.Open(pNome_Doc, False, True)
        objWord_doc.MailMerge.Destination = 0 'wdSendToNewDocument
       
        objWord_doc.MailMerge.Execute

     

    No ultimo comando acima ocorre o seguinte erro:

    (4605) Este metodo ou propriedade nao esta disponivel porque o documento principal de mala direta atual necessita de uma origem de dados.

    Este erro ocorre em algumas maquinas, se alguem puder me ajudar eu agradeco. estou utilizando o sistema operacional windows 2003 e office 2002.

    abracos

    Claudio

    • Movido Diego Piffaretti sábado, 2 de abril de 2011 01:48 local incorreto (De:Office - Geral)
    terça-feira, 6 de março de 2007 20:57