| Pregunta: | 17958 - WORD + ASP |
| Autor: | ana g |
| Estamos generando un documento en word, con codigo ASP, pero no sabemos como incluir una tabla con codigo asp en word. Hemos llegado a crear la tabla pero no sabemos como indicar la posición dentro del word donde queremos ubicarla ¿ como indicarle que escriba a nivel de linea y no de parrafo ? | |
| Respuesta: | Arturo Meza Arellano |
| aqui el detalle es que debes de ver como compone los objetos word por ejemplo el objeto application de quien depende y asi por el estilo te mando una parte del codigo para crear una tabla y poner el contenido de una tabla de una base de datos de SQL Set MyDoc = CreateObject("Word.application") Set doc = MyDoc.Documents.Open("c:\InetPub\wwwroot\docs\ss8.doc") 'doc.activeWindow.Headers(wdHeaderFooterPrimary).Range.Text = "Header text" mydoc.Headers(wdHeaderFooterPrimary).Range.Text = "Header text" MyDoc.Application.Visible = false Set rango1 = doc.Range(0, 0) Set tabla = doc.Tables.Add(rango1, 1, 5) tabla.Cell(1, 1).Range.InsertAfter "No Empleado" tabla.Cell(1, 2).Range.InsertAfter "Nombre" tabla.Cell(1, 3).Range.InsertAfter "Puesto" tabla.Cell(1, 4).Range.InsertAfter "Fecha Alta" tabla.Cell(1, 5).Range.InsertAfter "Salario Mensual" tabla.Rows.Add v_cuenta = 3 do until rs_emp.EOF tabla.Rows.Add For xField = 1 to 5 tabla.Cell(v_cuenta, xField).Range.InsertAfter rs_emp.Fields(xField-1).value Next numEmpleado = rs_emp.Fields("num_emp").value rs_D = "SELECT nom_dip, param1, param2, referencia " &_ "FROM an_emp_inci , an_dips " &_ "WHERE " &_ "an_emp_inci.clv_dip = an_dips.clv_dip " &_ "and num_emp = '"& numEmpleado &"' " &_ "and an_emp_inci.clv_dip <> ''" 'Response.Write rs_D rs_dip.Open rs_d,con do until rs_dip.EOF tabla.Rows.Add v_cuenta = v_cuenta + 1 for dipRow = 1 to 4 tabla.Cell(v_cuenta, dipRow+1).Range.InsertAfter rs_dip.Fields(dipRow-1).value Next rs_dip.MoveNext Loop if rs_dip.State <> 0 then rs_dip.Close v_cuenta = v_cuenta + 1 rs_emp.MoveNext Loop tabla.Rows(1).HeadingFormat = True tabla.Rows(1).Alignment = wdAlignRowCenter | |