Visual Basic - Urgente ayuda Vb6.0 y word

Life is soft - evento anual de software empresarial
   
Vista:

Urgente ayuda Vb6.0 y word

Publicado por Sergio (1 intervención) el 05/02/2010 11:10:13
Hola buenas gracias por el tiempo que me emplea.
Quiero con mi programa de vb6.0 arrancar una plantilla que tengo en microsoft word para rellenar los campos que yo quiera.He usado la correspondencia , pero cuando ya voy a ejecutarlo con mi programa visual basic te pongo el codigo:

Private Sub Form_Load()
Dim Documento As New Word.Application
With Documento
'abre un documento
.Application.Documents.Open App.Path & "\ejemplo.doc"
'relleno de marcadores
.Documents.Item(1).Bookmarks.Item("Marcador1").Range.Text = "TITULO"
.Documents.Item(1).Bookmarks.Item("Marcador2").Range.Text = "OTRO TEXTO"
'final del documento
.Application.Selection.EndKey wdStory
'intro
.Application.Selection.TypeParagraph
'introduccion de texto
.Application.Selection.TypeText "Ejemplo de prueba"
'intro
.Application.Selection.TypeParagraph
.Application.Selection.TypeParagraph
.Application.Selection.TypeParagraph
'crear tabla
.Documents.Item(1).Tables.Add Documento.Application.Selection.Range, 3, 5
'relleno de tabla
.Documents.Item(1).Tables(1).Cell(1, 1).Range.Text = "Celda 1"
'mostramos documento
.Application.Visible = True
End With
Set Documento = Nothing
End Sub

me da problemas a la hora de enlazar el vb6 con el documento word.abre el documento word pero cuando va a cargar me da el siguiente problema

Runtime -2147417851(80010105)
Automation error

y me marca la siguiente linea el debug:
.Application.Documents.Open App.Path & "\ejemplo.doc"

me he metido en diferentes foros y los ejemplos que proporcionan y que la gente comenta que funcionan a las mil maravillas a mi me dan el mismo error.
Solo me cabe pensar que sea un problema de mi vb6.0 o de mi version de word o algo asi.

Muchas gracias por ayudarme estoy desesperado.un saludo
un saludo y gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder