Преобразование Преобразование из нижнего регистра в верхний в Word (массово) — английский и китайский

Нужно преобразовать числа в словесные суммы в Word — чтобы суммы отображались прописью в счетах, договорах или чеках? Вы не одиноки: Word не предлагает простого встроенного способа автоматически писать денежные значения прописью, особенно когда документ содержит множество сумм.

Ниже приведены два надёжных способа решения этой задачи: (1) автоматизированный рабочий процесс в Excel (VBA для генерации словесных сумм с последующим копированием в Word — требует настройки и занимает больше времени) и (2) более быстрый метод в Word за несколько кликов с использованием Kutools для Word (лучший выбор, если вы хотите остаться в Word и преобразовать сразу несколько сумм).

💡 Быстрая навигация:

• Что означают «Словесные суммы» (с примерами)
• Способ 1 — В Excel: Преобразование в словесные суммы с помощью VBA + копирование в Word
• Способ 2 — В Word: Преобразование в словесные суммы одним щелчком с помощью Kutools для Word
  • Преобразовать числа в английские денежные слова (массово)
  • Преобразовать числа в китайские денежные слова (массово)
• Сравнение Excel и Kutools
• Устранение неполадок
• Часто задаваемые вопросы

Что означают «Словесные суммы» (с примерами)

«Валютные слова» — это преобразование числовых сумм в прописной формат, например: 1234,56 → «Одна тысяча двести тридцать четыре доллара и пятьдесят шесть центов». Такой формат часто используется в договорах, счётах, чеках, заказах на покупку и документах на возмещение расходов.

Способ 1 — В Excel: преобразование в валютные слова с помощью VBA с последующим копированием в Word

Этот рабочий процесс идеален, когда ваши суммы уже находятся в электронной таблице, и вы хотите всего за несколько секунд сгенерировать валютные словав Excel, а затем скопировать их в Word.

Шаг 1 — Подготовьте таблицу в Excel

1. В Excel создайте таблицу следующего вида: Сумма (числа) и СуммаПрописью (будет сгенерировано).
2. Убедитесь, что суммы представлены в виде чисел, а не текста. При необходимости сначала преобразуйте их с помощью функции «Текст в число».
   

Шаг 2 — Добавьте функцию VBA (UDF) для преобразования Преобразование из нижнего регистра в верхний

1. В Excel нажмите Alt + F11, чтобы открыть редактор VBA.
2. Выберите Вставка > Модуль.
3. Вставьте приведённый ниже код VBA в модуль.
4. Сохраните файл как .xlsm (книгу с поддержкой макросов).

Option Explicit
'Updated by Extendoffice 2026/2/10
Public Function CurrencyWordsUSD(ByVal Amount As Double) As String
    Dim Dollars As Long
    Dim Cents As Long
    Dim sDollars As String
    Dim sCents As String

    If Amount < 0 Then
        CurrencyWordsUSD = "Minus " & CurrencyWordsUSD(Abs(Amount))
        Exit Function
    End If

    Dollars = Fix(Amount)
    Cents = Round((Amount - Dollars) * 100, 0)

    sDollars = NumberToWords(Dollars) & IIf(Dollars = 1, " Dollar", " Dollars")
    sCents = NumberToWords(Cents) & IIf(Cents = 1, " Cent", " Cents")

    If Cents = 0 Then
        CurrencyWordsUSD = sDollars
    Else
        CurrencyWordsUSD = sDollars & " and " & sCents
    End If
End Function

Private Function NumberToWords(ByVal n As Long) As String
    If n = 0 Then
        NumberToWords = "Zero"
        Exit Function
    End If

    NumberToWords = Trim_(ToWords(n))
End Function

Private Function ToWords(ByVal n As Long) As String
    Dim Units As Variant, Tens As Variant
    Units = Array("", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine", _
                  "Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")
    Tens = Array("", "", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")

    Select Case n
        Case 0 To 19
            ToWords = Units(n)
        Case 20 To 99
            ToWords = Tens(Int(n / 10)) & IIf(n Mod 10 > 0, "-" & Units(n Mod 10), "")
        Case 100 To 999
            ToWords = Units(Int(n / 100)) & " Hundred" & IIf(n Mod 100 > 0, " " & ToWords(n Mod 100), "")
        Case 1000 To 999999
            ToWords = ToWords(Int(n / 1000)) & " Thousand" & IIf(n Mod 1000 > 0, " " & ToWords(n Mod 1000), "")
        Case 1000000 To 999999999
            ToWords = ToWords(Int(n / 1000000)) & " Million" & IIf(n Mod 1000000 > 0, " " & ToWords(n Mod 1000000), "")
        Case Else
            ToWords = ToWords(Int(n / 1000000000)) & " Billion" & IIf(n Mod 1000000000 > 0, " " & ToWords(n Mod 1000000000), "")
    End Select
End Function

Private Function Trim_(ByVal s As String) As String
    Trim_ = Application.WorksheetFunction.Trim(s)
End Function

Шаг 3 — Заполните вниз для преобразования нескольких чисел (пакетно)

1. В столбце СуммаПрописью введите: =CurrencyWordsUSD(A2) (адаптируйте ссылку на ячейку под свой лист).
   
2. Заполните вниз, чтобы преобразовать все строки.
   
3. Дополнительно (рекомендуется): скопируйте столбец СуммаПрописью и вставьте как Значения, чтобы зафиксировать результаты.
   

Шаг 4 — Перенесите результаты в Word (быстрое копирование и вставка)

1. В Excel выделите нужные вам ячейки Сумма и СуммаПрописью, затем нажмите Ctrl + C.
2. В Word щёлкните в том месте, куда нужно вставить результаты, затем нажмите Ctrl + V.
   

Способ 2 — В Word: преобразование в валютные слова одним щелчком с помощью Kutools для Word

Для самого простого рабочего процесса, начинающегося с Word, Kutools для Word предоставляет две специальные команды: Числа в английские валютные слова и Числа в китайские валютные слова. Одним щелчком вы можете мгновенно преобразовать числа прямо в документе.

Преобразовать числа в английские денежные слова (массово)

После загрузки и установки Kutools для Wordс официального сайта выполните следующие действия:

1. В Word выделите текст, содержащий числа, которые нужно преобразовать.

   Совет: если вы ничего не выделили, инструмент можно применить ко всему документу.

2. Выберите Kutools > Вставка > Числа в словесные суммы (англ.).
   

Результат: Kutools мгновенно заменяет числа на английские слова валюты в выделенном фрагменте (или во всём документе).

Преобразовать числа в китайские денежные слова (массово)

После загрузки и установки Kutools для Wordс официального сайта выполните следующие действия:

1. В Word выделите текст с числами, которые нужно преобразовать в китайские словесные суммы.

   Совет: если вы ничего не выделяете, инструмент преобразует числа во всем документе.

2. Выберите Kutools > Вставка > Числа в китайские словесные суммы.
   

Результат: Kutools мгновенно заменяет числа на китайские валютные обозначения в выделенном фрагменте (или во всём документе).

Сравнение Excel и Kutools

Итог: Для самого быстрого рабочего процесса, начинающегося с Word, используйте Kutools для Word, чтобы за несколько щелчков преобразовать несколько сумм в прописные валютные слова (в выделении или во всём документе). Применяйте VBA в Excel только если вы уже работаете в Excel и не возражаете против дополнительной настройки.

Устранение неполадок

Часто задаваемые вопросы