Sub Digits2Numbers()
Dim digits As String
Dim spelled As String
digits = Selection.Text
spelled = "#"
For i = 1 To Len(digits)
If i > 1 And Len(digits) > 1 Then spelled = spelled + "-"
Select Case Mid(digits, i, 1)
Case "0"
spelled = spelled + "Zero"
Case "1"
spelled = spelled + "One"
Case "2"
spelled = spelled + "Two"
Case "3"
spelled = spelled + "Three"
Case "4"
spelled = spelled + "Four"
Case "5"
spelled = spelled + "Five"
Case "6"
spelled = spelled + "Six"
Case "7"
spelled = spelled + "Seven"
Case "8"
spelled = spelled + "Eight"
Case "9"
spelled = spelled + "Nine"
Case "."
spelled = spelled + "Dot"
Case ","
spelled = spelled + "Comma"
Case "$"
spelled = spelled + "Dollar"
Case " "
spelled = spelled + "Space"
Case "-"
spelled = spelled + "Minus"
Case "+"
spelled = spelled + "Plus"
Case Else
spelled = spelled + "???"
End Select
Next i
spelled = spelled + "#"
Dim objClipboard As Object
Set objClipboard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
objClipboard.SetText spelled
objClipboard.PutInClipboard
Set objClipboard = Nothing
End Sub
http://word.tips.net/T000203_Converting_Numbers_to_Text.html