image
Inicio » Foros » ASP

ASP

Abrir Word con ASP

Volver al foro | Responder | Añadir nuevo tema


De: Asier
Fecha: 29/08/2006
Mensaje:

Hola a todos.

Tengo un documento Word en el servidor al que quiero hacer una serie de modificaciones antes de mostrarlo en el navegador web.

¿Alguien sabria decirme como se hace?

Gracias




Quizás le interese
De: Masterman
Util para: 0 personas

Fecha: 01/09/2006
Mensaje:

tienes que hacerlo normalmente....pero al parecer al momento que clickas el enlace te aparece un guardar como.... o no ?



De: Asier
Util para: 4 personas

Fecha: 25/09/2006
Mensaje:

Ya lo consegui. Aqui teneis el codigo.

<%  'Option Explicit %>
<%  response.expires = 0 %>
<%  response.buffer  = true %>
<%
   Response.addHeader "pragma", "no-cache"
   Response.CacheControl = "Private"
   Response.ExpiresAbsolute = #1/5/2000 12:12:12#
%>
<%
'esta página abre el doc de despieces y le inserta la marca de agua y el pié
Dim nombreFichero
nombreFichero = request("fichero")
strMarcaAgua = UCASE(TRIM(Request("strMarcaAgua")))

Dim directorio
directorio=Server.Mappath(".")  '& "/dcto_despieces"

'response.write(directorio & "documentos" & nombreFichero)
Set oWord=Server.CreateObject("Word.Application")
oWord.Visible=False

'oWord.Documents.open directorio & "/documentos/" & nombreFichero
oWord.Documents.open nombreFichero

IF strMarcaAgua<>"FALSE" THEN
 Meter_marca
END IF

oWord.ActiveDocument.ActiveWindow.View.Type = 1 '1->wdNormalView, 2->Vista Esquema, 3->Vista de Impresion
oWord.ActiveDocument.ActiveWindow.View.Zoom.Percentage = 75

arrNombreFichero=SPLIT(nombreFichero,"/")
nombreFichero=arrNombreFichero(UBound(arrNombreFichero))
arrNombreFichero=SPLIT(nombreFichero,".")

nombreFichero=arrNombreFichero(LBound(arrNombreFichero)) & "_" & Year(Now)&Month(Now)&Day(Now)&Hour(Now)&Minute(Now)&Second(Now) & "." & arrNombreFichero(UBound(arrNombreFichero))

oWord.ActiveDocument.SaveAs directorio & "temp" & nombreFichero , wdFormatDocument, False, "", True, "", False, False, False, False, False
'-----------

oWord.Quit
Set oWord=Nothing

Response.Redirect("temp/" & nombreFichero)

Sub Meter_marca()
    Set shHeaders = oWord.ActiveDocument.Sections(1).Headers(1).Shapes
    'Set sh = shHeaders.AddTextEffect(msoTextEffect1, "Kontrolatu Gabeko Kopia" & CHR(13)& "Copia No Controlada", "Verdana", 35, False, False, 0, 400)
 Set sh = shHeaders.AddTextEffect(5, "Kontrolatu Gabeko Kopia - Copia No Controlada", "Verdana", 30, 0, 0, 5, 45)
    sh.Name = "PowerPlusWaterMarkObject1"
    sh.Line.Visible = False
    sh.Fill.Visible = True
    sh.Fill.Solid
    sh.Fill.ForeColor.RGB = RGB(200, 200, 200) - 25
    sh.Fill.Transparency = 0.50
    'sh.Rotation = 315
 sh.Rotation = 90
    'sh.Height = 120
    'sh.Width = 620
' documento.ActiveWindow.Selection.Sections(1).Headers(1).Shapes.AddTextEffect 5, texto ,fuente , 18, 0, 0, 20, 130
' documento.ActiveWindow.Selection.Sections(1).Headers(1).Shapes.AddTextEffect 1, texto ,fuente , 8, 1, 1, 100, 160
End Sub

%>





De: Irene Gamarra
Util para: 0 personas

Fecha: 30/09/2006
Mensaje:

Rios de Esparanza..

Cuando nace un hijo por primera vez la mayoria de los familiares lo reciben con felicidad. Y muy pocas personas lo toman como cualquier cosa que no fuera importante.. Cuando llegan a una adolecescia si es un niño lo tratan con rigide por aquello y que si lo tratan con cariño empiesa adudar de su propio sexo.. Y si es una niña la sobre protegen por aquello de que se puede adelantar a los acontecimientos.. No será más facil ser amigo, de ellos?.. ¿Acaso será tan dificil compartir con ellos sus acontecimientos y demostrarles que el amigo esta en su casa?.. ¿Cuesta tanto viajar un poquito a la adolescencia o darles un concejo con esas palabras juveniles que ellos esperan?.. Hagamos la prueba y demostremos que aprendemos de estas corrientes y que nos guarda para una vejez futura, no toda la vida hemos sido adultos, ni tampoco adolescente y mucho menos viejo.. Por tal manera con nuestras acciones demostramos que la más grande escuela es nuestra propia vida... Hagamos la prueba..






De: Miguel
Util para: 1 personas

Fecha: 20/10/2008
Mensaje:

Hola!!

He seguido tu código para poder visualizar archivos word, sin embargo tengo el siguiente error:

Información técnica (para personal de soporte técnico)

Tipo de error:
Objeto Server, ASP 0178 (0x80070005)
Error en la llamada a Server.CreateObject al comprobar permisos. Se ha denegado el acceso a este objeto.
/siip/ad/prueba.asp, línea 28

Ya en opciones de internet habilite la ejecución de ActiveX, pero continúa la problemática. Me porías decir por donde mirar para poder abrir documentos word desde una aplicación asp



De: Ricardo
Util para: 0 personas

Fecha: 07/12/2008
Mensaje:

¿ Cómo puedo bloquear el desplazamiento de un texto en un documento de Word. Por ejemplo, evitar el desplazamiento de un párrafo al insertar nuevo texto en una posición inmediatamente anterior ?
Gracias de antemano.



Volver al foro | Responder | Añadir nuevo tema

Quizás le interese:

WebEstilo.com no se hace responsable de las opiniones que los usuarios puedan verter en cualquiera de los foros existentes.

Si te solucionó el problema pulsa en G+1


Gracias!






Comparte



Última modificación:31 de Agosto de 2017. Spain - Espa�a.
© 1998-2004 por . Todos los derechos reservados.