for i= thisform.text1.value to  thisform.text12.value
 if (i)any text <>space""
    REPLACE (thisform.text2.Value) WITH NEWNAME
    REPLACE (thisform.text3.Value) WITH NEWNAME 
    REPLACE (thisform.text4.Value) WITH NEWNAME
    REPLACE (thisform.text5.Value) WITH NEWNAME 
..
..
..
..
..
    REPLACE (thisform.text11.Value) WITH NEWNAME
    REPLACE (thisform.text12.Value) WITH NEWNAME 
 ENDIF
ENDFOR