FoxPro/Visual FoxPro - UREGENTISISISIMO Enviar a Word

Necesito enviar los datos de una tabla a una parte especifica en word, no tengo problemas cuando tengo q insertar un solo campo, pero el problema esta en que necesito imprimir ciertos registros desglosados tengo algo asi:

bla bla bla ... CAMPO1..... blabla bla... CAMPO05 <---Aqui no hay problema, pero
mi problema radica cuando intento hacer esto:

bla bla bla... como a continuacion se detalla

Nº Descripcion
1 Valor 1
2 Valor 2
3 Valor 3
. Valor 4
. Etc
. Etc

Por favor.... si alguien puede asesorarme se lo agradecere enormemente

de antemano Gracias!

*******sintaxis:
wordFindAndreplace("foxpro","FoxPro","c:informe.doc")

*******función:

FUNCTION wordFindAndReplace

LPARAMETERS cValueTofind,cValueToreplace,cDo*****ent
LOCAL lValue
oWord=CREATEOBJECT("word.application")
oDo*****ent=oWord.Do*****ents.OPEN(cDo*****ent)
loSelection=oWord.SELECTION
WITH loSelection.FIND
.TEXT = cValueToFind
.Forward = .T.
.WRAP= 1
ENDWITH
DO WHILE .T.
lValue = loSelection.FIND.Execute
IF lValue
loSelection.Cut
loSelection.InsertBefore(cValueToReplace)
loselection.MoveRight
ELSE
EXIT
ENDIF
ENDDO
ENDFUNC
oWord.VISIBLE =.T

Mil gracias... no habia ternido oportunidad de Agradecertelo....

Que chido eres!!!!

Gracias! =D