* BACKUP ALL TEXT TO codetext PROCEDURE Init ZOOM WINDOW "REPORT DESIGNER" MAX ENDPROC ENDTEXT * loop on project.file collection or with ADIR USE (reportnamevar) IN 100 REPLACE IN 100 tag with m.codetext, tag2 WITH '' FOR objecttype=25 USE IN 100 COMPILE REPORT (reportnamevar) * endloopFabio