Crear documento word

[javimartinez]

Hola

Necesito crear un documento word desde ASP. Dicho documento debe tener aspectos como imágenes, cabecera, pie de página, etc, es decir, no ser solo texto. Además, si fuera posible, me gustaría crear varios documentos desde una página web y que en la página se mostraran los enlaces a los enlaces a los documentos creados (los datos de los documentos se obtienen de una base de datos). Mis preguntas son:

¿ Como se crean documentos word desde ASP ?

¿ Qué necesito tener en el servidor ? (Word, alguna librería, etc)

Gracias y un saludo

[javimartinez]

SOS, urgente

[ElAprendiz]

busca en http://www.planet-code-source.com

crei que ahi vi algo pero que a mi nunca me funciono

[javimartinez]

El enlace no funciona

Gracias y un saludo

[ElAprendiz]

OOPSS


www.planet-source-code.com

[affv]

yo tambien estoy interesado en este tema... si alguien nos puede ayudar a saber un poco mas...

Muchas Gracias

[verinchi]

Un poco tarde vi este tema.
Hay un objeto del servidor, el File System Object.

Hay mucha info de este objeto dando vueltas por la red, ahora no recuerdo ningún enlace.

Saludos y espero que aunque tarde, sirva :)

[Shiryu_Libra]

FILE SYSTEM OBJECT

crea ficheros, cuando los grabes, en ves de txt, cambia la extencion a doc, haz una prueba, que puede pasar

no creen???

suerte
anexo: Pagina Microsoft: Crear un documento de office en una aplicacion ASP

tambien encontre este SUB

Código PHP:

  Sub CreateAppraisalForm(Nombre,Asunto)

        ' CREATE WORD DOCUMENT

        Set WordApp = CreateObject("word.application")
        Set WordDoc = WordApp.Documents.Add()
        
        WordApp.Application.Visible = True
        
        Set MyRange1 = WordDoc.Paragraphs.Add.Range
        MyRange1.InsertBefore("Documento de prueba")    

    'Esto que viene ahora es lo de los estilos de Word. Puedes poner uno que ya tengas definido
    'MyRange1.Style = "Título 3"    

        
        Set MyRange1 = WordDoc.Paragraphs.Add.Range
        MyRange1.InsertBefore("Nombre: " & Nombre & vbcrlf & "Asunto: " & Asunto)

'Aquí estuve probando para dar formato al texto. No hay más que poner true o false según queráis que se active. No encontré más cosillas de estas

        MyRange1.Font.Bold = true
        MyRange1.Font.Italic= true
        MyRange1.Font.Underline= true
        MyRange1.Font.Size=10
        MyRange1.Font.Name="verdana"

                
        Set MyRange1 = WordDoc.Paragraphs.Add.Range
MyRange1.InsertBefore(vbcrlf & "Este es el mensaje que va en el documento Word. Recordar que hay que poner algún sistema para que el nombre del archivo sea diferente cada vez. Yo mientras he puesto uno que se basa en coger el dia, hora, minutos y segunods. Es cutre pero era para salir del paso")

' Set the directory location to store the generated documents
    'Aquí va el directorio donde queremos almacenar el archivo
        WordDocPath = Server.MapPath("..\inicio")
            ' Use the unique session ID as the filename.
WordDoc.SaveAs WordDocPath & "\" & day(date()) & hour(now()) & minute(now()) & second(now()) & ".doc"
'        WordDoc.Close
        WordApp.Quit
    
        Set WordDoc = Nothing
        Set WordApp = Nothing        
                
End Sub