just15
04 de Febrero del 2009

Buen día comunidad. Estoy haciendo un programatica que me permita automatizar correspondencia en Word 2003, usando Visual Basic 6.0 para combinarlo con una base de datos en access 2003 (incluso tambien la tengo transformada a access 97), al ejecutar la apertura del documento word emite el siguiente error: Error en el método 'OpenDataSource' del objeto 'MailMarge'. A continuación dejo el código para que le den un vistazo en espera de sugerencia para posible solución.

Option Explicit
Dim strRutaArchivo As String

Private Sub Combinar()
Dim WordObj As New Word.Application
Dim appWord As Word.Application
Dim docWord As Word.Document

strRutaArchivo = "[ruta y nombre del documento.doc]"
Set appWord = CreateObject("Word.Application")
Set docWord = appWord.Documents.Open(strRutaArchivo)
docWord.MailMerge.MainDocumentType = wdFormLetters
docWord.MailMerge.OpenDataSource Name:="ruta y nombre de la base de datos access", SQLStatement:="SELECT * FROM [nombre de la tabla]"

With docWord
.MailMerge.Destination = wdSendToNewDocument
.MailMerge.Execute False
End With

appWord.ActiveDocument.SaveAs
docWord.Close False

Set appWord = Nothing
Set docWord = Nothing
End Sub

Private Sub Command1_Click()
Combinar
End Sub

Private Sub Command2_Click()
Unload Me
End
End Sub

Private Sub Form_Load()
Form1.Caption = "Combinar Correspondencia"
Command1.Caption = "&Combinar"
Command2.Caption = "&Salir"
End Sub

Se hace referencia en el proyecto a Microsoft Office 12.0 Object Library, y a Microsoft Word 11.0 Object Library.
De antemano les agradezco cualquier ayuda.