Foro de programacion

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