Как добавить разделитель тысяч к числам в документах Word?

Добавление разделителя тысяч к числам в документе Word значительно повышает читаемость, особенно при работе с большими значениями. Хотя Microsoft Word не предоставляет прямой функции для добавления разделителя тысяч, существуют эффективные способы реализовать это — с помощью VBA (Visual Basic for Applications) или удобного инструмента, такого как Kutools для Word.

В этом руководстве мы покажем, как добавить разделитель тысяч к числам в документе Word с помощью VBA и Kutools для Word.

Добавить разделитель тысяч с помощью VBA

Добавить разделитель тысяч с помощью Kutools для Word

---

Добавить разделитель тысяч с помощью VBA

Вставка разделителей разрядов в большие числа может быть утомительной, особенно если приходится делать это снова и снова. С помощью кода VBA этот процесс легко автоматизировать: просто выделите число и нажмите F5 — и разделители появятся мгновенно.

1. Выделите число, которое нужно отформатировать с разделителями разрядов, затем нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. Нажмите Вставить>Модуль, затем скопируйте и вставьте следующий код в редактор Модуль.

   Sub InsertThousandSeparators()
       Dim selectedText As String
       Dim formattedText As String
       Dim decimalPos As Integer
       Dim wholePart As String
       Dim decimalPart As String
       Dim temp As String
       Dim i As Integer
       Dim charCount As Integer
       Dim trailingSpace As String
       Dim trailingParagraphMark As String
       
       If Selection.Type <> wdSelectionIP Then
           selectedText = Selection.Text
           trailingSpace = ""
           trailingParagraphMark = ""
           
           If Right(selectedText, 1) = " " Then
               trailingSpace = " "
               selectedText = Trim(selectedText)
           End If
           
           If Right(selectedText, 1) = Chr(13) Then
               trailingParagraphMark = Chr(13)
               selectedText = Left(selectedText, Len(selectedText) - 1)
           End If
           
           If IsNumeric(selectedText) Then
               decimalPos = InStr(1, selectedText, ".")
               
               If decimalPos > 0 Then
                   wholePart = Left(selectedText, decimalPos - 1)
                   decimalPart = Mid(selectedText, decimalPos + 1)
               Else
                   wholePart = selectedText
                   decimalPart = ""
               End If
               
               wholePart = Replace(wholePart, ",", "")
               
               temp = ""
               charCount = 0
               
               For i = Len(wholePart) To 1 Step -1
                   temp = Mid(wholePart, i, 1) & temp
                   charCount = charCount + 1
                   
                   If charCount Mod 3 = 0 And i > 1 Then
                       temp = "," & temp
                   End If
               Next i
               
               wholePart = temp
               
               If decimalPart <> "" Then
                   formattedText = wholePart & "." & decimalPart
               Else
                   formattedText = wholePart
               End If
               
               Selection.Text = formattedText & trailingSpace & trailingParagraphMark
           Else
               MsgBox "Please select a valid number."
           End If
       Else
           MsgBox "Please select a number first."
       End If
   End Sub

3. Нажмите клавишу F5, и разделители разрядов будут добавлены к выделенному числу.

   

4. Чтобы добавить разделители к другому числу, просто выделите новое число, вернитесь в окно Модуль и снова нажмите F5.

---

Добавить разделитель тысяч с помощью Kutools для Word

Если нужно добавить разделители сразу к нескольким числам — в выделенном фрагменте или во всём документе Word, — воспользуйтесь утилитой Добавить разделитель тысяч из Kutools для Word: она справится с этой задачей всего за несколько кликов.

После установки Kutools для Wordвыполните следующие действия:

1. Чтобы применить Добавить разделитель тысяч ко всем числам во всём документе, не выделяйте данные и нажмите Kutools>Вставить>Добавить разделитель тысяч.

   

2. Появится диалоговое окно с запросом на применение этой функции к Весь документ, нажмите Да.

   

3. Теперь ко всем числам добавлены разделители разрядов.

   

---

Демонстрация: Добавить разделитель тысяч к числам в документе Word