Visual y word
¿Buenas qué tal? Tengo un pequeño problemilla con un programa que estoy haciendo.
Te comento: tengo una plantilla en word y quiero desde visual basic arrancar esa plantilla e introducirle unos datos desde vb6.
Pero tengo un problema a la hora cuando le doi al command botton que tengo para que arranque el word con los datos ya metidos me salta el siguiente error:
runtime -2147417851(80010105)
automation error
Te paso el código que tengo:
Option Explicit
Dim objWord As Word.Application
Private Sub cmdLlenaCarta_Click()
Set objWord = New Word.Application
objWord.Visible = True
objWord.Documents.Open App.Path & "\Carta.doc"
objWord.Documents(1).Bookmarks("Destinatario").Range = txtDestinatario.Text
objWord.Documents(1).Bookmarks("Esposa").Range = txtEsposa.Text
objWord.Documents(1).Bookmarks("Fecha").Range = txtFecha.Text
End Sub
el error me marca en la linea de codigo de la ryuta:
objWord.Documents.Open App.Path & "\Carta.doc"
A ver si pyuedes echarme un cable llevo 2 días con esto ya.
Un saludo y gracias
Te comento: tengo una plantilla en word y quiero desde visual basic arrancar esa plantilla e introducirle unos datos desde vb6.
Pero tengo un problema a la hora cuando le doi al command botton que tengo para que arranque el word con los datos ya metidos me salta el siguiente error:
runtime -2147417851(80010105)
automation error
Te paso el código que tengo:
Option Explicit
Dim objWord As Word.Application
Private Sub cmdLlenaCarta_Click()
Set objWord = New Word.Application
objWord.Visible = True
objWord.Documents.Open App.Path & "\Carta.doc"
objWord.Documents(1).Bookmarks("Destinatario").Range = txtDestinatario.Text
objWord.Documents(1).Bookmarks("Esposa").Range = txtEsposa.Text
objWord.Documents(1).Bookmarks("Fecha").Range = txtFecha.Text
End Sub
el error me marca en la linea de codigo de la ryuta:
objWord.Documents.Open App.Path & "\Carta.doc"
A ver si pyuedes echarme un cable llevo 2 días con esto ya.
Un saludo y gracias
1 respuesta
Respuesta de Roberto Alvarado
1