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.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta

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