FoxPro/Visual FoxPro - Automatización Word

   
Vista:

Automatización Word

Publicado por carlos (14 intervenciones) el 20/01/2010 15:51:15
Cordial saludo amigos del foro

Mediante automatización con Word estoy insetando dos tablas, utilizando el siguiente código, pero se estan sobreponiendo, como puedo hacer para que las dos tablas queden separadas una despues de la otra

nNumCeldas = 8
oDoc.Tables.Add(oRange, nNumCeldas, 5)
oTable = oDoc.Tables(1)
WITH oTable

sele encabezado1
otable.Cell(1, 1).Range.Text = Trim(titulo4)
otable.Cell(1, 2).Range.Text = Trim(titulo)
otable.Cell(1, 3).Range.Text = Trim(titulo1)
otable.Cell(1, 4).Range.Text = Trim(titulo2)
otable.Cell(1, 5).Range.Text = Trim(titulo3)

sele evaluar
fila = 2
Scan
*!* .Rows(2).Cells.Merge
.Cell(fila, 1).Range.text = Trim(evaluar.nom_categ)
.Cell(fila, 2).Range.Text = Trim(evaluar.nom_proc)
.Cell(fila, 3).Range.text= Trim(evaluar.nom_asp)
.Cell(fila, 4).Range.Text = TRim(evaluar.detalle)
.Cell(fila, 5).Range.text= trim(evaluar.comentario)
fila = fila + 1
EndScan

endwith

oRange = oTable.Range
oRange.Collapse(wdCollapseEnd)

WITH oRange
.InsertParagraphAfter()
endwith

nNumCeldas = 8
oDoc.Tables.Add(oRange, nNumCeldas, 4)
oTable133 = oDoc.Tables(1)

With oTable133
.Rows.RelativeHorizontalPosition = 0
sele encabezado
oTable133.Cell(1, 1).Range.Text = Trim(titulo)
oTable133.Cell(1, 2).Range.Text = Trim(titulo1)
oTable133.Cell(1, 3).Range.Text = Trim(titulo2)
oTable133.Cell(1, 4).Range.Text = Trim(titulo3)
oTable133.Rows[1].Range.Font.Bold = 1;

sele cen
fila = 2
go top
Scan

.Cell(fila, 1).Range.Text = Trim(cen.cod_cen)
.Cell(fila, 2).Range.text= cen.num_error
.Cell(fila, 3).Range.Text = TRim(cen.memo_error)
.Cell(fila, 4).Range.text= trim(cen.memo_obs)
fila = fila + 1

EndScan


EndWith

oRange = oTable133.Range
oRange.Collapse(wdCollapseEnd)


Gracias

Carlos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Automatización Word

Publicado por Elsa (36 intervenciones) el 21/01/2010 22:25:06
Fijate que las dos veces, pones que comience en la fila = 2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Automatización Word

Publicado por Carlos (14 intervenciones) el 22/01/2010 14:22:22
Elsa te agradezco por la respuesta, ajuste el numero de la fila y ya logro ver la información de las dos tablas sin embargo al generar el documento aparece como si fuera una sola tabla,

Categoria Proceso Aspecto Evaluado Muestra Plan de Mejoramiento
DISPONIBLE Notas Débito y Notas Crédito La copia de la ND no presentan VoBo de elaborado y/o revisado rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrruuuuuuuuuuuuuuu
Central Cantidad Errores Comentario Observacion
Cuadre 59 1 a
Efectivo 11 2 b
Canje 12 3 c
Fuc Día Día 11 5 y
Cuadre 59 1 b
Efectivo 11 6 y
Cuadre 54 a a
Canje 12 c c
Cuadre 54 g g
Efectivo 8 t t
Canje 12 g y

Es posible que las tablas queden separadas?


Mil gracias


Carlos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Automatización Word

Publicado por Elsa (36 intervenciones) el 25/01/2010 20:41:40
Tendrias que intercalar blancos .
despues que escribis cada tabla tabla :
fila = fila + 1
Cell(fila, 1).Range.Text = " "
Elsa
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar