Pregunta: | 63220 - PROBLEMAS AL UNIR VB6.0 CON WORD |
Autor: | Sergio Rubia |
Hola buenas a ver si alguien me puede echar una mano que llevo 3 desesperado para hacer esta tonteria. Mi programa tiene que introducir datos en un documento Microsoft word ya creado(vamos una plantilla). He visto varios ejemplo que estan puestos y todos coinciden y lo tengo hecho de la misma manera pero tengo un problema, os paso codigo y explico. 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 Cuando voy a ejecutarlo me da error cuando va a cargar la ruta para abrir mi plantilla de word: .Application.Documents.Open App.Path & "ejemplo.doc" Me da el error:runtime error -2147417851(80010105) automation error Estoy aqui bloqueado a ver si alguien me pudiera echar una mano para resolver el problema. Muchas gracias.un saludo |