_rtffile = SYS(3) + ".rft" &&Creo un Archivo con extension RTF
SET TEXTMERGE TO &_rtffile NOSHOW
SET TEXTMERGE ON
\\<<ver_ima>>
SET TEXTMERGE TO
el campo ver_ima es un campo memo
tambien puedes hacerlo con fopen(), fseek(),fclose()
IF FILE(archivo)
ERR1=FOPEN(ALLTRIM(archivo),0)
ENDIF
STORE FSEEK(err1, 0, 2) TO TAMANO && Mueve el puntero a EOF
STORE FSEEK(err1, 0) TO principio && Mueve el puntero a BOF
cadena = FREAD(err1,TAMANO)
cadena tiene el contenido del archivo