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

Author: Sun Last Modified: 2025-06-05

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

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

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

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

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

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

Выберите число, которое вы хотите отформатировать с разделителями тысяч, затем нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

Нажмите Вставить > МодульЗатем скопируйте и вставьте следующий код в Модуль редактор.

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

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

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

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

Kutools для Word,оснащённый ИИ 🤖, предлагает более 100 удобных функций для упрощения ваших задач.

Скачать сейчас

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

Для добавления разделителей тысяч ко всем числам во всем документе не выбирайте никакие данные и нажмите Kutools > Вставить > Добавить разделитель тысяч.
Появится диалоговое окно с вопросом, хотите ли вы применить эту функцию ко всему документу, нажмите Да.
Теперь все числа имеют разделители тысяч.

Примечания:

Если вы хотите добавить разделители тысяч к числам в определенном выделенном фрагменте, сначала выберите этот фрагмент, а затем нажмите Kutools > Вставить > Добавить разделитель тысяч.
Чтобы удалить разделители тысяч, нажмите Kutools > Удалить > Удалить все разделители тысяч в выбранных диапазонах.

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

Узнайте о вкладке Kutools / Kutools Plus в этом видео от Kutools для Word. Наслаждайтесь 100+ функциями и постоянно бесплатными AI-утилитами. Скачайте прямо сейчас!

Лучшие инструменты для повышения продуктивности в офисе

Kutools для Word — расширьте возможности работы с Word с помощью более чем 100 уникальных функций!

🤖 Функции искусственного интеллекта Kutools: AI Ассистент / Ассистент в Реальном Времени / Супер Полировка (с сохранением формата) / Супер Перевод (с сохранением формата) / Искусственный интеллект для редактирования / Проверка с помощью ИИ...

📘 Мастерство работы с документами: Разделить страницы / Объединить документы / Экспортировать выделенное в различные форматы (PDF/TXT/DOC/HTML...) / Пакетно преобразовать в PDF...

✏ Редактирование содержимого: Пакетный поиск и замена в нескольких файлах / Изменить размер всех изображений / Транспонировать строки и столбцы таблицы / Преобразовать таблицу в текст...

🧹 Легкая очистка: Удалите лишние пробелы / Разрывы разделов / Текстовые поля / Гиперссылки / Для дополнительных инструментов удаления перейдите в группу Удалить...

➕ Креативные вставки: Вставить разделители тысяч / Флажки / Переключатели / QR-код / Штрихкод / Несколько изображений / Откройте больше возможностей в группе Вставить...

🔍 Точные выделения: Быстро находите нужные страницы / Таблицы / Фигуры / Абзацы заголовка / Улучшайте навигацию с помощью дополнительных функций Выбрать...

⭐ Особые улучшения: Переходите к любому расположению / Автоматически вставляйте повторяющийся текст / Переключайтесь между окнами документа /11 инструментов для преобразования...