Ooops, sorry, try:
whileprintingrecords;
numbervar counter;
Boolean AddDollars:=True;
Stringvar output:="";
stringvar MyWord:=toword({table.field});
For counter := 1 to len(MyWord) do(
if isnumeric(mid(MyWord,counter,1))
and
NoDollars then
(
NoDollars:=False;
output:=Output + " dollars " & mid(myword,counter,1);
else
output:=Output + mid(myword,counter,1);
);
output
-k