Mira de Casualidad habia encontrado ayer algo asi.
<%
Option Explicit
HTML2Word "file://" & Server.MapPath("test.htm"), Server.MapPath("test.doc")
Response.Write "Finnished at: " & Now()
Sub HTML2Word(ByRef pstrSourceURL, ByRef pstrTargetFile)
Dim lobjWordApp
Dim lobjInternetExplorer
Set lobjWordApp = Server.CreateObject("Word.Document")
Set lobjInternetExplorer = Server.CreateObject("InternetExplorer.Applica tion")
lobjInternetExplorer.Navigate pstrSourceURL
IEStandBy lobjInternetExplorer
lobjInternetExplorer.document.body.createTextRange .execCommand("Copy")
IEStandBy lobjInternetExplorer
lobjWordApp.Content.Paste
lobjWordApp.SaveAs pstrTargetFile
lobjWordApp.Close
lobjInternetExplorer.Quit
Set lobjInternetExplorer = Nothing
Set lobjWordApp = Nothing
End Sub
Sub IEStandBy(ByRef pobjInternetExplorer)
' Not good (Pegs system resources)
' Need to find a way to "sleep"
While pobjInternetExplorer.busy:Wend
While Not pobjInternetExplorer.Document.readyState = "complete":Wend
End Sub
%>
no lo he probado..pero deberia funcionar
.Saludos
<center><IMG SRC="http://www.550m.com/usuarios/altolacruz/aprendiz3.gif" ALT="Visitame en AlSurNet.com -- E-Learning E-Commerce Multimedia E-Business--"></center>