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 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.
Kutools for Word, with more than {module753} handy functions, makes your jobs easier. | ||
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
Kutools For Word - More Than 100 Advanced Features For Word, Save Your 50% Time
- Complicated and repeated operations can be done one-time processing in seconds.
- Insert multiple images across folders into Word document at once.
- Merge and combine multiple Word files across folders into one with your desired order.
- Split the current document into separate documents according to heading, section break or other criteria.
- Convert files between Doc and Docx, Docx and PDF, collection of tools for common conversions and selection, and so on...