Convert "1st" to "First"?

[grannyM]

I'm programming a Word Document where the user will input an Amendment Number. If they input "1st" or "23rd" instead of "First" or "Twenty-Third", the macro needs to convert it before inserting it into the document. Haven't been able to find a function or format that does this. Any help would be appreciated.

Thanks!

 

[Bowers74]

This might put you on the right track:

Sub AutoCorrect()
With Application.AutoCorrect.Entries
    .Add Name:="1st", Value:="first"
    .Add Name:="3rd", Value:="third"
    '.Add etc.......
End With
End Sub

Or you could just go directly to the Tools->Auto Correct... settings.

I hope this helps!



Peace!

Mike

Never say Never!!!
Nothing is impossible!!!