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