Crear un fichero word

lachana escribió:

No consigo hacer que funcione el siguiente procedimiento. Alguien
amable podría decirme donde esta el fallo. El mensaje que me sale es:

Se ha producido el error '5151' en tiempo de ejecución.
Word no pudo leer este documento. Puede que esté dañado...

Private Sub comando0_click()
Dim DocumentoWord As Word.Document
Dim VariableWord As Word.Application
Set VariableWord = New Word.Application
Set DocumentoWord = VariableWord.Documents.Add("C:\DocWord.doc")
VariableWord.Visible = True
Set VariableWord = Nothing
Set DocumentoWord = Nothing
End Sub

Muchas Gracias

Hola Lachana :-)

Pues ese error te lo da porque donde especificas la ruta del Archivo
DocWord.doc es incorrecta, no reconoce el archivo puesto que no sabe
donde esta por ello te da ese error y dice que podria estar dañado etc,
etc... por ejemplo para que te funcione tendrias que situarla asi: (en
mi caso seria asi, dentro de la carpeta por ejemplo Mis docuemntos )

("C:\Documents and Settings\usuario\Mis documentos\Docword.doc")

Ruta exacta de ubicacion en disco de tu archivo :-)

Nos comentas ok?

Saludos
Monica


¡Un SAludo! :-)

www.fermu.com
www.zorval.es