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

Hola Mónica:

No entiendo muy bien tu contestación.
Yo lo que quiero es crear el fichero, el fichero inicialmente no existe, por
lo tanto ¿que más da que me lo cree en la dirección que yo indico que en la
que tu me expones?

Gracias

"Tux" escribió:

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

lachana escribió:

Hola Mónica:

No entiendo muy bien tu contestación.
Yo lo que quiero es crear el fichero, el fichero inicialmente no existe, por
lo tanto ¿que más da que me lo cree en la dirección que yo indico que en la
que tu me expones?

Gracias

"Tux" escribió:

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

Hola Lachana :-)

Pues te he dicho eso :-) porque ese codigo no crea ningun archivo nuevo
o fichero :-( puesto que no le dices que te agrege o te cree un fichero
o archivo nuevo simplemente le dices que te agrege uno igual de uno
existente y puedas guardarlo con otro nombre .

si lo que quieres es crear un archivo en C:\

Prueba con este codigo :-)

Sub Crear_Fichero()

Dim DocumentoWord As Integer

'Le pedimos al sistema operativo que nos de paso a un fichero
'que no se encuentre en sistema operativo

DocumentoWord = FreeFile

'Le decimos al Sistema operativo que nos deje paso para poner nuestro
'nuevo Documento

Open "C:\Midocumento.doc" For Output As #DocumentoWord


End Sub

Si cualquier duda nos comentas ok?:-)

Saludos
Monica


¡Un SAludo! :-)

www.fermu.com
www.zorval.es

lachana escribió:

Hola Mónica:

No entiendo muy bien tu contestación.
Yo lo que quiero es crear el fichero, el fichero inicialmente no existe, por
lo tanto ¿que más da que me lo cree en la dirección que yo indico que en la
que tu me expones?

Gracias

Y otra cosa que se me olvidaba :-)

Y si quieres abrir el documento que has acabado de crear seria asi :-)

Sub Mi_Nuevo_Fichero()

Dim DocumentoWord As Integer

DocumentoWord = FreeFile

Open "C:\Prueba.doc" For Output As #DocumentoWord
Close #DocumentoWord

Documents.Open FileName:="Prueba.doc"

End Sub

Nos comentas ok?:-)

Saludos
Monica


¡Un SAludo! :-)

www.fermu.com
www.zorval.es

lachana escribió:

Hola Mónica:

No sé lo que estaré haciendo mal pero el caso es que no lo consigo.
Me indica como error: "Error de acceso a la ruta o el archivo".
Si puedes aclararme algo, te lo agradecería.

Gracias
lachana

Hola Lachana :-)

Bien dime los pasos que has seguido para poner el codigo, y el numero de
error que te da :-)

¿eso te pasa con el codigo que te pase? ¿quieres crear un documento
nuevo de word en C:\ ?

Nos comentas ok? :-)

Saludos
Monica

¡Un SAludo! :-)

www.fermu.com
www.zorval.es