documentos word con ASP

[Caspurr]

HOLA.

Hice una pagina en asp que se muestra en word y da la opcion de que se guarde en formato .doc.

La pagina contiene algunos datos y 2 imagenes. En el archivo guardado se muestran bien los datos pero no así las imagenes (aparecen como cuadraditos con un x ).

El codigo que use para que se muestre en .doc es la siguiente:


Response.ContentType = "application/vnd.ms-word"
Response.AddHeader "Content-Disposition","attachment; filename=untitled.doc"


Como hago para que se muestren las imagenes en el archivo guardado?

Espero que me hayan entendido...

GRACIAS!

[verinchi]

Hola.
Bueno, yo tengo el mismo problema.
Estoy creando archivos de word con Fso que además contienen imágenes.
Bueno, la imágen es una sola y es fija en todos los documentos.

Mi problema es que en el servidor el archivo se genera correctamente, con la imágen incrustada, pero necesito que los usuarios puedan descargar este archivo del servidor. Para esto, usé la clase AspDownload.
Hasta ahora siempre me funcionó muy bien, pero con el tema de las imágenes, descarga el documento pero la referencia a la imagen sigue siendo una imágen que está en la carpeta del servidor.

Lo comprobé, colocando esta imagen en la carpeta donde guardo el archivo bajado, y así si aparece en el documento.

La duda es: ¿Cómo se puede hacer para que la imagen quede incrustada en el documento, sin necesidad de tener que tenerla en la carpeta donde se guarda?

La instrucción que utilizo para colocar la imagen en el documento es

Código:

ObjStream.Write("<td width='36'>")
    ObjStream.Write("<img src='inta35px.jpg' width='45' height='47' /></td>")

Es un documento que contiene datos en tablas, y la solución que encontré fue pasarle la tabla en codigo htm.

Ah! es de destacar también, que si abro el archivo en el browser y luego lo guardo como en el equipo local, la imagen se guarda correctamente.

Desde ya, gracias a todos!

[Shiryu_Libra]

recuerden que las imagenes en documentos o en html e incluso envios de email generados por codigo ASP, deben contener la direccion completa de la imagen

ejemplos:

Código:

 http:// www. tudominio.com/imagenes/esta.jpg

para que sea desplegada correctamente

suerte

[luis_eficiente]

Iniciado por verinchi

Hola.
Bueno, yo tengo el mismo problema.
Estoy creando archivos de word con Fso que además contienen imágenes.
Bueno, la imágen es una sola y es fija en todos los documentos.

Mi problema es que en el servidor el archivo se genera correctamente, con la imágen incrustada, pero necesito que los usuarios puedan descargar este archivo del servidor. Para esto, usé la clase AspDownload.
Hasta ahora siempre me funcionó muy bien, pero con el tema de las imágenes, descarga el documento pero la referencia a la imagen sigue siendo una imágen que está en la carpeta del servidor.

Lo comprobé, colocando esta imagen en la carpeta donde guardo el archivo bajado, y así si aparece en el documento.

La duda es: ¿Cómo se puede hacer para que la imagen quede incrustada en el documento, sin necesidad de tener que tenerla en la carpeta donde se guarda?

La instrucción que utilizo para colocar la imagen en el documento es

Código:

ObjStream.Write("<td width='36'>")
    ObjStream.Write("<img src='inta35px.jpg' width='45' height='47' /></td>")

Es un documento que contiene datos en tablas, y la solución que encontré fue pasarle la tabla en codigo htm.

Ah! es de destacar también, que si abro el archivo en el browser y luego lo guardo como en el equipo local, la imagen se guarda correctamente.

Desde ya, gracias a todos!

Hola Verinchi !!!

lamento no poder ayudarme, es mas necesito de tu ayuda!!! jijiji!!!

yò tambièn estoy tratando de hacer documentos de word con el FSO, he tratado de leer el contenido de un documento .doc y escribirlo en otro .doc pero me extrae caracteres extraños???

tines alguna idea de como leer el contenido correctamente????

gracias !!!!

[verinchi]

Hola Luis!
Bueno, creo que el tema de las imágenes nos lo respondió Shiryu, aunque tal vez la solución no sea lo que uno esperaba y bueno. En mi caso puedo implementarlo bien porque corre en una intranet, pero si quisiera colocar archivos disponibles en web para que el usuario se los descargue, tendríamos el inconveniente que si se desconecta deja de ver la imagen (No me convence). En fin, si los pongo en web debería colocarlos en pdf y solucionado el problema.

Con el tema de los caracteres extraños tenés que fijarte en qué fuente está escrito el documento.
Yo te recomendaría que lo guardaras en Arial o Verdana, que son fuentes de las mas comunes (Me pasó con Arial Special GT, que el Crystal Reports escribiera símbolos zodiacales =/ ).
Si no es eso, fijate la codificación de caracteres: UTF-8 o cuál sea la que necesites usar.

Espero que te ayude.
Saludos!!!!

[luis_eficiente]

Iniciado por verinchi

Hola Luis!
Bueno, creo que el tema de las imágenes nos lo respondió Shiryu, aunque tal vez la solución no sea lo que uno esperaba y bueno. En mi caso puedo implementarlo bien porque corre en una intranet, pero si quisiera colocar archivos disponibles en web para que el usuario se los descargue, tendríamos el inconveniente que si se desconecta deja de ver la imagen (No me convence). En fin, si los pongo en web debería colocarlos en pdf y solucionado el problema.

Con el tema de los caracteres extraños tenés que fijarte en qué fuente está escrito el documento.
Yo te recomendaría que lo guardaras en Arial o Verdana, que son fuentes de las mas comunes (Me pasó con Arial Special GT, que el Crystal Reports escribiera símbolos zodiacales =/ ).
Si no es eso, fijate la codificación de caracteres: UTF-8 o cuál sea la que necesites usar.

Espero que te ayude.
Saludos!!!!

Hola verinchi gracias por responder!!

Lo que quiero hacer es leer el contenido de un documento word desde ASP, obtener alguna informaciòn y luego cambiarle el nombre ????

estoy usando algo como esto:

nomb_archi = "PAG00005"
'& cstr(i)

archivo= request.serverVariables("APPL_PHYSICAL_PATH") & "Pagares\Pag2\" & nomb_archi & ".doc"

'conectamos con el FSO
set confile = createObject("scripting.filesystemobject")

' verificamos que exista el archivo
if confile.FileExists(archivo) then

'abrimos el fichero para lectura
set fich = confile.OpenTextFile(archivo)

'leemos el contenido del fichero
texto_fichero = fich.readAll()

response.Write(texto_fichero)

'completar nombre del fichero nuevo
vector = split(texto_fichero, ",")

//////debo cambiar el nombre del fichero

fich.close

end if

%>

pero los datos que extraigo son caracteres extraños ????

mi sistema de codificaciòn es UTF-8

he probado varias cosas y no me funciona!!!!

[verinchi]

Hola Luis.
Tengo esta función que renombra archivos. Fijate como la podés adaptar.
El punto es: Deberías cerrarlo antes de renombrarlo para que no te de error por estar en uso el archivo.

Código:

Function RenombrarArchivo(origen,destino)
	Dim fso
	Set fso = CreateObject("Scripting.FileSystemObject")
	if (fso.FileExists(origen)) then fso.MoveFile origen, destino
	end if
	set fso = nothing
End function

Esto obviamente, pasa todo el contenido tal cual está al archivo destino, si tenés que hacer modificaciones en el archivo, te conviene abrirlo para escritura, guardar los cambios y después cambiar el nombre.

Bueno, espero que sea de ayuda

Saludos!

[luis_eficiente]

Iniciado por verinchi

Hola Luis.
Tengo esta función que renombra archivos. Fijate como la podés adaptar.
El punto es: Deberías cerrarlo antes de renombrarlo para que no te de error por estar en uso el archivo.

Código:

Function RenombrarArchivo(origen,destino)
	Dim fso
	Set fso = CreateObject("Scripting.FileSystemObject")
	if (fso.FileExists(origen)) then fso.MoveFile origen, destino
	end if
	set fso = nothing
End function

Esto obviamente, pasa todo el contenido tal cual está al archivo destino, si tenés que hacer modificaciones en el archivo, te conviene abrirlo para escritura, guardar los cambios y después cambiar el nombre.

Bueno, espero que sea de ayuda

Saludos!

Hola verinchi, gracias nuevamente!!!

ya he realizado mover, ò copiar archivos con su contenido exacto!!!, en realidad ese no es el problema... la dificultad consiste en que no puedo leer el contenido del documento en (word) ??? por que en txt lo hace muy bien pero en word me extrae caracteres extraños??? he probado varias cosas y nada!!! te explico lo que he hecho.

nomb_archi = "PAG00006"

archivo= request.serverVariables("APPL_PHYSICAL_PATH") & "Pagares\Pag2\" & nomb_archi & ".doc"

'conectamos con el FSO
set confile = createObject("scripting.filesystemobject")

' verificamos que exista el archivo
if confile.FileExists(archivo) then

'abrimos el fichero para lectura
set fich = confile.OpenTextFile(archivo,1,false,-1)

texto_fichero = fich.readAll()

en la variable (texto_ficheo) leo todo el contenido del archivo pero me extrae puros caracteres extraños???

con la instrucciòn "OpenTextFile(archivo,1,false,-1)" ledigo como quiero abrir el archivo y los paràmetros son los siguientes (ruta_archivo, para lectura, que no cree un nuevo archivo si no existe, y este ùltimo es el formato que quiero como me abra el archivo)

este formato es:
0 = formato ASCII,
-1 = formato UNICODE
-2 = formato por defecto del sistema


he probado con todos y nada????

hay que hacer alguna otra cosa???

sì tienes alguna idea... gracias...