I shall like a code for named figures Roman.

General Discussion
4

$regexp(%TITLE%,'\b(?=[MDCLXVI])(M{0,3})(C[DM]|D?C{0,3})(X[LC]|L?X{0,3})(I[VX]|V?I{0,3})\b','\U$0'
Explained in detail in this new thread...
/t/16343/1