|
|
| Pregunta: | 19748 - MANDAR DATOS DE ASP A CAMPOS EN WORD | | Autor: | Jose D | Buenas con todos,
tengo el siguiente codigo que me envia datos de un asp a un archivo word tipo plantilla el cual tiene campos de texto , una vez hehco esto se abre el archivo word. Pero cuando lo paso mi codigo a formato de servidor no hace nada, no sale error tampoco, tengo instalado el word en el servidor , mi pc es servidor y cliente a la vez ademas
codigo en vbscript lado cliente :(funciona perfecto)
-------------------------
Sub Generar()
Set Doc=CreateObject("Word.Document")
Set App=CreateObject("Word.Application")
Set Doc=App.Documents.Add("C:\Plantilla.dot")
Doc.FormFields("txtDato1").Result="uno"
Doc.FormFields("txtDato2").Result="dos"
Doc.FormFields("txtDato3").Result="tres"
Doc.FormFields("txtDato4").Result="cuatro"
end sub
codigo en vbscript lado servidor :(no funciona y no sale error tampoco - la ruta del archivo es correcta y tengo instalado word en el server)
-------------------------
Call Generar
Sub Generar()
Dim Doc
strDocsPath = "Plantilla"
strDocsPhysicalPath = Server.MapPath(strDocsPath)
Set Doc=Server.CreateObject("Word.Document")
Set App=Server.CreateObject("Word.Application")
Set Doc=App.Documents.Add(strDocsPhysicalPath & "\Plantilla.dot")
Doc.FormFields("txtDato1").Result="uno"
Doc.FormFields("txtDato2").Result="dos"
Doc.FormFields("txtDato3").Result="tres"
Doc.FormFields("txtDato4").Result="cuatro"
App.Visible=True
End Sub
|
|
