hola
como antes te dijeron no esta mal que buscara sun poquito pero weno
esta en ingles
Código PHP:
<html>
<title>CodeAve.com(Create Word On Server)</title>
<body bgcolor="#FFFFFF">
<%
' Name of the access db being queried
accessdb="state_info"
' Connection string to the access db
cn="DRIVER={Microsoft Access Driver (*.mdb)};"
cn=cn & "DBQ=" & Server.MapPath(accessdb)
' Create a server recordset object
Set rs = Server.CreateObject("ADODB.Recordset")
' Query the states table from the state_info db
sql = "select state,statename,capital,year,order from states "
' Execute the sql
rs.Open sql, cn
' Move to the first record
rs.MoveFirst
' For net loop to create seven word documents from the record set
' change this to "do while not rs.eof" to output all the records
' and the corresponding next should be changed to loop also
For documents= 1 To 7
' Creates a text file on the server with the state abbreviation
' as the name for the ouput document
file_being_created= rs("state") & ".doc"
' create a file system object
Set fso = CreateObject("scripting.filesystemobject")
' create the text file - true will overwrite any previous files
Set act = fso.CreateTextFile(Server.MapPath(file_being_created), True)
' Writes the db output to a .doc file in the same directory
act.WriteLine("<html><title>CodeAve.com(" & rs("statename") & " State Info)</title>")
act.WriteLine("<body bgcolor='#FFFFFF'> " )
act.WriteLine("State: " & rs("statename") & "<br>" )
act.WriteLine("Abbreviaton: " & rs("state") & "<br>" )
act.WriteLine("Capital: " & rs("capital") & "<br>")
act.WriteLine("Entered the Union in "& rs("year") & "<br>")
act.WriteLine("Number in order of entrance into the Union "& rs("order") & "<br>")
act.WriteLine("Page created on: " & Now ())
act.WriteLine("</body></html>")
' close the object
act.close
' Writes the links to the newly created pages in the browser
Response.Write "<a href='" & rs("state") & ".doc'>" & rs("statename") & "</a> (.doc) " & Now() & "<br>"
' move to the next record
rs.movenext
' return to the top of the for - next loop
' change this to "loop" to output all the records
' and the corresponding for statement above should be changed also
Next
%>
</body>
</html>
a ver si te sirve es para convertir a word
saludos