Macro to replace digits with letters

[Bananabean]

I would like a macro to substitute letters for numbers (the integers from 0 to 25) in a selection; i.e. every instance of 25 becomes W, then every instance of 24 becomes L, then every instance of 23 becomes M and so on. How do I go about this, please? Clearly the 2 digit numbers must be replaced first, so the order of substitution matters.

[gmaxey]

And so on...? What does that mean. There is no logic in your question. W is the 22nd letter in the alphabet, L is the 12th and M is the 13th.

Are the numbers separated by spaces or what? Shoud the macro treat 1234 as a 1 a 2 a 3 and a 4 or a 12 then a 3 then a 4 or a 1 then a 23 then a 4?

[Bananabean]

There are only numbers from 0 to 25 and they are replaced by a known permutation of the letters of the alphabet. In the example I changed 25 to W and so on.

[gmaxey]

Replace numbers with letters of the alphabet e.g., 1 with A, 2 with B, 3 with C and so on. That makes sense. So if the number is 4 replace it with D if the number is 26 replace it with Z.

Your example makes no sense. Replace 25 with W, 24 with L, 23 with M. So what do you replace 22 with V (the 22nd letter) or N or A or what.

How are the numbers separated?

[Bananabean]

The numbers are separated by operators like: 25 + 23 / 12 * 13 – 17
The numbers are coded which is why 1 is not necessarily A, 2 is not necessarily B and so on.

Thus 25 + 23 / 12 * 13 – 17 might translate to W + M / B * C - N (or some other letter combination depending on the chosen code)

[gmaxey]

Sub DemoScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim arrFind() As String
Dim arrReplace() As String
Dim oRng As Word.Range
Dim lngIndex As Long
arrFind = Split("<25>|<24>|<23>|<22>|<21>|<20>|<19>|<18>|<17>|<16>|<15>|<14>|<13>|<12>|<11>|<10>|<9>|<8>|<7>|<6>|<5>|<4>|<3>|<2>|<1>|<0>", "|")
arrReplace = Split("W|L|M|?|?|?|?|?|?|?|?|?|?|?|?|?|?|?|?|?|?|?|?|?|?|?|?", "|")
For lngIndex = 0 To UBound(arrFind)
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Text = arrFind(lngIndex)
    .MatchWildcards = True
    .Replacement.Text = arrReplace(lngIndex)
    .Execute Replace:=wdReplaceAll
  End With
Next lngIndex
End Sub

[Bananabean]

Thank you very much, Greg. That is exactly what I wanted.