Hi,

this gives slightly different results than your function, but if I understand your project, it might be similar to what you want. First, I create substitution rules, i.e. rules that substitute letters by a digit. Note that there are 26 letters (well in my world) and only 10 standard digits, so I use the first letters of the alphabet to fill the digits up.

substitutions = Join[Rule @@@ Transpose[{CharacterRange["a", "z"], Join[Range[0, 9], Alphabet[][[1 ;; 16]]]}], 
Rule @@@ Transpose[{CharacterRange["A", "Z"], Join[Range[0, 9], Alphabet[][[1 ;; 16]]]}]]

The following function takes a world list and converts that to base 26 numbers that it then prints after conversation to decimal numbers.

  {#, ToExpression["26^^" <> StringJoin[(ToString /@ (Characters[#] /. substitutions))]]} & /@WordList[]

I use the WordList function that contains about 40.000 words. The output looks like this:

There are some symbols that destroy the result, so I will use only words that contain standard letters (and not hyphens etc):

wordnumbers={#, ToExpression["26^^" <> StringJoin[(ToString /@ (# /. substitutions))]]} & /@ 
Select[Characters[WordList[]], ContainsAll[Join[CharacterRange["a", "z"], CharacterRange["A", "Z"]], #] &]

I can then order the words with respect to their "value":

sortedList= SortBy[wordnumbers, Last]

If we then want to concatenate the letters to form the words we use:

StringJoin /@ SortBy[wordnumbers, Last][[All, 1]]

Is what you require similar to this?

Best wishes, Marco

PS: It is actually nice to plot this in several different ways:

ListLogPlot[SortBy[wordnumbers, Last][[All, 2]], ImageSize -> Large]

ListLogLogPlot[Reverse@SortBy[wordnumbers, Last][[All, 2]], ImageSize -> Large]

ListLogPlot[wordnumbers[[All, 2]], ImageSize -> Large]