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
Best Office Productivity Tools
Kutools for Word - Elevate Your Word Experience with Over 100 Remarkable Features!
🤖 Kutools AI Assistant: Transform your writing with AI - Generate Content / Rewrite Text / Summarize Documents / Inquire for Information based on Document, all within Word
📘 Document Mastery: Split Pages / Merge Documents / Export Selection in Various Formats (PDF/TXT/DOC/HTML...) / Batch Convert to PDF / Export Pages as Images / Print Multiple Files at once...
✏ Contents Editing: Batch Find and Replace across Multiple Files / Resize All Pictures / Transpose Table Rows and Columns / Convert Table to Text...
🧹 Effortless Clean: Sweap away Extra Spaces / Section Breaks / All Headers / Text Boxes / Hyperlinks / For more removing tools, head to the Remove group...
➕ Creative Inserts: Insert Thousand Separators / Check Boxes / Radio Buttons / QR Code / Barcode / Diagonal Line Table / Equation Caption / Image Caption / Table Caption / Multiple Pictures / Discover more in the Insert group...
🔍 Precision Selections: Pinpoint Specific Pages / Tables / Shapes / Heading Paragraphs / Enhance navigation with more Select features...
⭐ Star Enhancements: Navigate to Any Location / Auto-Insert Repetitive Text / Toggle Between Document Windows / 11 Conversion Tools...