KutoolsforOffice — Одно решение — пять мощных инструментов.Меньше усилий — больше результата.

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

АвторСуньДата изменения

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

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

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

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

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

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, чтобы запустить код. Теперь число преобразовано в слова.
Число преобразовано в английские слова

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

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

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

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

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

1. Выделите ячейки, которые нужно преобразовать в слова, затем нажмите Kutools > Содержимое > Преобразовать в слова.
Опция «Числа в слова» на вкладке Kutools на ленте Excel

2. В появившемся диалоговом окне установите флажки напротив параметров Английский и Не преобразовывать в валюту.
Диалоговое окно «Числа в слова»

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

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

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

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

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

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

🧹Легкая очистка: удалите лишние пробелы, разрывы разделов, текстовые поля и гиперссылки. Чтобы узнать больше об инструментах удаления, перейдите в группу Удалить…

➕Креативные вставки: вставляйте разделители разрядов, флажки, переключатели, QR-коды, штрихкоды и несколько изображений. Узнайте больше в группе Вставка…

🔍Точное выделение: выделяйте определённые страницы, таблицы, фигуры и абзацы заголовков — улучшите навигацию с помощью расширенных функций выделенияfeatures ……

⭐Звёздные улучшения: Переход к любому месту / Автоматическая вставка повторяющегося текста / Переключение между документами Windows / 11преобразования Инструменты…

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

Kutools for Word вкладки на ленте
 
 

Office Tab– Добавляет вкладки в Office и значительно упрощает вашу работу

  • Включите редактирование и чтение с вкладками в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в отдельных окнах.
  • Повышает продуктивность на 50 % и экономит сотни кликов мышью каждый день!

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

Включает в себя Office Tab Pro·Kutools для Excel·Kutools для Outlook·Kutools для Word·Kutools for PowerPoint

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

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

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

Бесплатно скачатьКупить сейчасПодробнее о Kutools