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

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

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

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

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

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

2. клацання 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 клавіша для запуску коду, тепер число перетворено у слова.
номер документа до слова 1

примітки： Код працює щоразу лише на одне число.

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

Якщо ви хочете перетворити цифри на слова в аркуші Excel, є зручний інструмент - Числа до слів Kutools для Excel, який може конвертувати числа в англійські або китайські слова або конвертувати числа в англійську або китайську валюту.

Kutools для Excel, з більш ніж 300 зручні функції, полегшує вам роботу.

Безкоштовне завантаження
безкоштовний повнофункціональний за 30 днів

після безкоштовна установка Kutools для Excel, виконайте наведені нижче дії.

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