Перейти к содержимому

Kutools для Office — один пакет. Пять инструментов. Выполняйте больше.

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

Author Sun Last modified

В этой статье рассматривается метод преобразования чисел в английские слова в документе Word. Если вам интересно, продолжайте читать для получения подробной информации.

Преобразование чисел в английские слова с помощью VBA

Преобразование чисел в английские слова в Excel с помощью Kutools для Excel


Преобразование чисел в английские слова с помощью VBA

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

2. Нажмите Вставить > Модуль, затем скопируйте код ниже и вставьте его в сценарий Модуля.

VBA: Преобразование числа в слова

Sub ConvertNumberToWord()
'UpdatebyExtendoffice20181010
    Dim xDigit As Double
    Dim xBuff As String
    On Error Resume Next
    Selection.MoveLeft wdWord, 1, wdMove
    Selection.MoveRight wdWord, 1, wdExtend
    xDigit = Val(Trim(Selection.Text))
    If xDigit = 0 And Str(xDigit) <> Trim(Selection.Text) Then Exit Sub
    If xDigit > 999999 Then
        If xDigit <= 999999999 Then
            xBuff = Trim(Int(Str(xDigit / 1000000)))
            Selection.Fields.Add Selection.Range, wdFieldEmpty, "= " + xBuff + " \* CardText", True
            Selection.MoveLeft wdWord, 1, wdExtend
            xBuff = Selection.Text & " million "
            xDigit = Right(Str(xDigit), 6)
        End If
    End If
    If xDigit <= 999999 Then
        Selection.Fields.Add Selection.Range, wdFieldEmpty, "= " + Str(xDigit) + " \* CardText", True
        Selection.MoveLeft wdWord, 1, wdExtend
        xDigit = xBuff & Selection.Text
        Selection.TypeText xDigit + " "
    Else
        MsgBox "Number too large", vbOKOnly, "Kutool for Word"
    End If
End Sub

3. Нажмите F5 для запуска кода. Теперь число преобразовано в слова.
Number converted to English words

Примечание: Код работает только для одного числа за раз.


Преобразование чисел в английские слова с помощью Kutools для Excel

Если вы хотите преобразовать числа в слова на листе Excel, существует удобный инструмент — Преобразовать в слова из Kutools для Excel, который может преобразовывать числа в английские или китайские слова, а также в английскую валюту или китайскую валюту.

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

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

1. Выберите ячейки, которые нужно преобразовать из чисел в слова, затем нажмите Kutools > Текст > Преобразовать в слова.
Numbers to Words option on the Kutools tab on the Excel ribbon

2. В появившемся диалоговом окне отметьте Английский и Не преобразовывать в валюту опции.
Numbers to Words dialog box

3. Нажмите ОК или Применить, выбранные числа будут преобразованы в слова.

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

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

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

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

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

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

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

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

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

🌍 Поддержка более40 языков: Используйте Kutools на предпочитаемом языке — поддерживаются Английский, Испанский, Немецкий, Французский, Китайский и еще более40 языков!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Хотите попробовать эти функции? Загрузите Kutools for Word сейчас! 🚀
 

✨ Kutools for Office — Одна установка, пять мощных инструментов!

Включает Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 Получите все5 инструментов в одном пакете | 🔗 Бесшовная интеграция с Microsoft Office | ⚡ Мгновенно экономьте время и повышайте продуктивность

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

Kutools for Word - 100+ инструментов для Word