Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.

RESPONDER UNA PREGUNTA

Si para responder la pregunta, crees necesario enviar un archivo adjunto, puedes hacerlo a traves del correo respuestas@lawebdelprogramador.com

    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


Nombre
Apellidos
Correo
Comentarios