function replacetabla()
lparameters poselection,odoc
* Cuento las filas del cursor
with poselection
* Header
	.font.size = 9
	.font.name = "Arial"
endwith
select micursor
nrows=reccount('MiCursor')+1
ncols=4
wdcollapsestart=1

*!* Inserta una Tabla
orange=poselection.range()
orange = odoc.range() && saber en donde está el puntero de insercción del documento
orange.collapse(wdcollapsestart) && posicionar el puntero de insercción del documento a la posición de la variable(wdCollapseStart)
*poselection.find.text = <tabla>
*oRange.MoveDown( 5, nRows+2)
poselection.tables.add(orange, nrows, ncols, 1, 0)
otable = poselection.tables(1)
with otable
* Ancho de Fila
	.rows.height = 6
	.columns(1).setwidth(50,0)
	.columns(2).setwidth(400,0)
	.columns(3).setwidth(60,0)
	.columns(4).setwidth(100,0)
	.rows.wraparoundtext = .t.
* AutoFormato de la tabla
	.autoformat(1,.t.,.t.,.t.,.t.,.t.,.t.,.t.,.t.,.t.)
* Pongo en Negrita la primera fila del encabezado
	.rows(1).range.font.bold=.t.
* Algo de sombra
	.rows(1).shading.texture = 200
	.cell(1,1).range.insertafter("FECHA")
	.cell(1,2).range.insertafter("NOMBRE")
	.cell(1,3).range.insertafter("MONTO")
	.cell(1,4).range.insertafter("DOCUMENTOS")
* Alineacion del titulo
	.cell(1,1).range.paragraphformat.alignment = 0
	.cell(1,2).range.paragraphformat.alignment = 0
	.cell(1,3).range.paragraphformat.alignment = 2
	.cell(1,4).range.paragraphformat.alignment = 0
* Relleno las otras filas con datos del cursor
	select micursor
	go top
	n=2
	scan
		.cell(n,1).range.paragraphformat.alignment = 0
		.cell(n,1).range.insertafter(micursor.fecha)
		.cell(n,2).range.paragraphformat.alignment = 0
		.cell(n,2).range.insertafter(alltrim(micursor.nombre))
		.cell(n,3).range.paragraphformat.alignment = 2
		.cell(n,3).range.insertafter(alltrim(transform(micursor.monto,'@z 9,999,999.99')))
		.cell(n,4).range.paragraphformat.alignment = 0
		.cell(n,4).range.insertafter(alltrim(micursor.documento))
		n=n+1
	endscan
endwith
return
endfunc