How to add thousand separator to numbers in Word document?

In Excel, you can use the apply the Use 1000 separator function to auto add 1000 separator to numbers, but do you know how to add the 1000 separator to numbers in Word document? Here I introduce some tricks on handling this job in Word.

Add 1000 separator with Shortcuts

Add 1000 separator with Symbol

Add 1000 separator with VBA

Add 1000 separator with Kutools for Word

Add 1000 separator with Shortcuts

In Word, you can add the thousand separator with shortcuts.

Place the cursor at the location you want to insert the 1000 separator, press Alt key, and press 044 in the number keyboard.

Add 1000 separator with Symbol

Or you can insert the 1000 separator by using Symbol function.

1. Place the cursor at the location you want to insert the 1000 separator, click Insert > Symbol > More Symbols.

2. In the Symbol dialog, under Symbols tab select Verdana from Font drop-down list, then select Basic Latin from Subset drop-down list, now select the 1000 separator from the list, click Insert to insert it.

Note: With the above two methods, only one thousand separator can be inserted at a time. If you want to insert several thousand separators to a long number at once, please try the following method.

Add 1000 separator with VBA

Sometimes, one number needed to be inserted several 1000 separators. In this case, you can use VBA code.

1. Select the number you want to insert thousand separators, press Alt + F11 keys to open Microsoft Visual basic for Applications window.

2. Click Insert > Module, copy and paste below code to the Module.

VBA: Add 1000 separators to number

Sub AddCommasToNumbers()
'UpdatebyExtendoffice20181106
    Dim xWarp As Integer
    If Selection.Type = wdSelectionIP Then
        ActiveDocument.Range(0, 0).Select
        xWarp = wdFindContinue
    Else
        xWarp = wdFindStop
    End If
    With Selection.Find
        .ClearFormatting
        .Text = "[0-9]{4,}"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = xWarp
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
        Do While .Execute
            Selection.Text = Format$(Selection.Text, "#,##0")
            If xWarp = wdFindContinue Then
                Selection.Collapse wdCollapseEnd
            Else
                Exit Sub
            End If
        Loop
    End With
End Sub

3. Press F5 key, thousand separators have been inserted to the selected number.

Add 1000 separator with Kutools for Word

If you want to insert separators to multiple numbers in selection or the whole document in Word, the Add Thousand Separator utility of Kutools for Word can solve this job by clicks.

After installing Kutools for Word, please do as below:（Free Download Kutools for Word Now!)

For adding thousand separator to all numbers in the whole document, just no select any data, click Kutools > Add Thousand Separator.

Some dialogs pop out to ensure if you want to apply this function to the whole document, click Yes > OK.

Now all numbers have been inserted 1000 separator.

If you want to add 1000 separator to numbers in selection, select the numbers and click Kutools > Add Thousand Separator.

Note: If you want to remove the thousand separators, you can click Kutools > Remove > Remove Thousand Separator.

  Add thousand separator

Recommended Word Productivity Tools