how do I change numbers into words in microsft words

[hadighan]

I am creating a template where I need to have the numbers changed in there
respective words; ex: 256 is two hundred fifty six.
I need this operation to be done by word only

 

[Doug Robbins]

With the insertion point in the number, run the following code:

Dim myrange As Range
Set myrange = Selection.Words(1)
Selection.Fields.Add Range:=myrange, Type:=wdFieldEmpty, _
PreserveFormatting:=False
myrange.Start = myrange.Start + 1
myrange.InsertBefore "="
myrange.InsertAfter "\*cardtext"
ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
Selection.Fields.Update


--
Please respond to the Newsgroup for the benefit of others who may be
interested. Questions sent directly to me will only be answered on a paid
consulting basis.

Hope this helps,
Doug Robbins - Word MVP