Як перетворити число в слова в документі Word?

У цій статті йдеться про спосіб перетворення чисел в англійські слова в документі Word. Будь ласка, перейдіть далі, щоб переглянути деталі, якщо вас це цікавить.

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

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

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

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

Натисніть Insert > Модулі, і скопіюйте наведені нижче коди та вставте їх у Модулі сценарій

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, виконайте наведені нижче дії.

1. Виділіть клітинки, які потрібно перетворити в цифри, і натисніть Кутулс > зміст > Числа до слів.

2. У діалоговому вікні, що з’являється, поставте галочку Англійська та Не конвертовано у валюту Варіанти.

Натисніть Ok or Застосовувати, вибрані цифри будуть перетворені у слова.

Найкращі інструменти продуктивності офісу

Kutools для Word - Підніміть свій досвід Word із Over 100 Чудові особливості!

🤖 Особливості штучного інтелекту Kutools: AI-помічник / Помічник у реальному часі / Super Polish (формат збереження) / Super Translate (збереження формату) / Редакція ШІ / AI Коректура...

📘 Майстерність документів: Розділити сторінки / Об’єднати документи / Експортувати вибране в різні формати (PDF/TXT/DOC/HTML...) / Пакетне перетворення в PDF...

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

🧹 Очищення без зусиль: Змітати Зайві простори / Розбиття розділів / Текстові поля / Гіперпосилання / Щоб отримати додаткові інструменти для видалення, перейдіть до Видалення група ...

➕ Творчі вставки: Вставити Роздільники тисяч / Прапорці / радіо кнопки / QR-код / Штрих-код / Кілька зображень / Дізнайтеся більше в Insert група ...

???? Точність вибору: Точне визначення Конкретні сторінки / таблиці / форми / Заголовок абзаців / Покращте навігацію за допомогою більше Виберіть риси...

⭐ Покращення зірок: Перейдіть до будь-якого місця / Автоматичне вставлення повторюваного тексту / Перемикання між вікнами документів / 11 Перетворення Інструменти...

🌍 Підтримує понад 40 мовВикористовуйте Kutools бажаною мовою – підтримує англійську, іспанську, німецьку, французьку, китайську та понад 40 інших!

👉 Хочете спробувати ці функції? Завантажте Kutools для Word зараз! ????

Безкоштовне завантаження     Купити зараз     Дізнайтеся більше про Kutools для Word

 

Найкращі інструменти продуктивності офісу

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

• 🤖 Особливості штучного інтелекту Kutools: AI-помічник / Помічник у реальному часі / Супер польський / Супер переклад / Редакція ШІ / AI Коректура
• 📘 Майстерність документів: Розділити сторінки / Об’єднати документи / Пакетне перетворення в PDF
• ✏ Редагування змісту: Пакетний пошук та заміна / Змінити розмір усіх зображень
• 🧹 Очищення без зусиль: Видаліть зайві пробіли / Видаліть розриви розділів
• ➕ Творчі вставки: Вставте роздільники тисяч / Вставити прапорці / Створення QR-кодів
• 🌍 Підтримує понад 40 мовKutools розмовляє вашою мовою – підтримується понад 40 мов!

Безкоштовне завантаження Купити зараз Дізнайтеся більше про Kutools