[Graham Mayor]

No automatic method, short of pressing the comma key where required.
the following macro will format a selected number

Sub FormattedNumber()
Dim sNum As String
sNum = Selection
If sNum = "" Then Exit Sub
If sNum Int(sNum) Then
sNum = format(sNum, "###,###,###,###.##")
Else
sNum = format(sNum, "###,###,###,###")
End If
Selection.TypeText sNum
End Sub

but it is just as quick to manually insert the commas.

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org



L. Mohan Arun wrote:
Is there a way to get this done in Word:

I type 4126 it should produce 4,126.
I type 39922 it should produce 39,922.

In short I am looking to format the number automatically.

---------------
Read my blog
http://interestsblog.blogspot.com