How to format a number as currency in MS Word

Question

I type a number in MS Word and I would like to show it as currency (i.e. split it in 3 digits with comma and place a currency sign.). I wonder if there is any shortcut to do this. For example, I type a number and then press the shortcut keys to format the number as currency (according to the format which has been in set in Settings/Region).

It seems that it can be done by using fields but I think it is a hard solution.

Answer 1

It is not so hard if you can copy and paste. :)

The following macro will work for US currency (it will need modification for other country currency formats).

http://www.gmayor.com/installing_macro.htm   

Put the cursor in the number and run the macro

Sub FormatAsCurrency()

Dim oRng As Range

    Set oRng = Selection.Range

    oRng.MoveStartWhile "0123456789,.", wdBackward

    oRng.MoveEndWhile "0123456789,."

    oRng.Fields.Add Range:=oRng, _

                    Type:=wdFieldExpression, _

                    Text:=oRng.Text & " # " & Chr(34) & ",$0.00" & Chr(34), _

                    PreserveFormatting:=False

    oRng.Fields.Update

    Set oRng = Nothing

 End Sub

Answer 2

Hello,

Fields are the easy way. I would guess that some of the master programmers who often respond here can come up with a macro that you could trigger with a keyboard shortcut. Use of such a macro would be easy, but constructing it would not be.

Which version of Word are you using?

This is something that would be a good suggestion for Word developers.

UserVoice Word for Windows

Answer 3

I wish Microsoft could add a shortcut key for formatting a number as currency every where in office, e.g. in outlook as well as word and excel. Thank you any way.

By the way, I edited the code for Rial currency as below:

Sub FormatAsCurrency()

    Dim oRng As Range

    Set oRng = Selection.Range

    oRng.MoveStartWhile "0123456789,.", wdBackward

    oRng.MoveEndWhile "0123456789,."

    oRng.Fields.Add Range:=oRng, _

                    Type:=wdFieldExpression, _

                    Text:=oRng.Text & " # " & Chr(34) & ",0" & ChrW(65020) & Chr(34), _

                    PreserveFormatting:=False

    oRng.Fields.Update

    Set oRng = Nothing

End Sub