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