Sub NumberToTextUS()
' Paul Beverley - Version 25.03.26
' Converts next number into text, eg "two hundred forty-two"

oldFind = Selection.Find.Text
oldReplace = Selection.Find.Replacement.Text

' Find a number (six figures max)
Selection.Expand wdWord
Selection.Collapse wdCollapseStart
With Selection.Find
  .ClearFormatting
  .Text = "<[0-9]{1,6}>"
  .Replacement.Text = ""
  .Forward = True
  .MatchWildcards = True
  .Execute
End With

myNumber = Selection
' Create a field containing the digits and a special format code
Set fld = Selection.Fields.Add(Range:=Selection.Range, _
        Type:=wdFieldEmpty, Text:="= " & myNumber & " \* CardText", _
        PreserveFormatting:=True)
fld.Update
fld.Unlink
DoEvents

With Selection.Find
  .Text = oldFind
  .Replacement.Text = oldReplace
  .MatchWildcards = False
End With
End Sub