FoxPro/Visual FoxPro - Automatización Word

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

Fijate que las dos veces, pones que comience en la fila = 2

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

Tendrias que intercalar blancos .
despues que escribis cada tabla tabla :
fila = fila + 1
Cell(fila, 1).Range.Text = " "
Elsa