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