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

Автор: Слънце Последна промяна: 2020-09-08

Тази статия говори за метода за преобразуване на числата в английски думи в документ на 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 ключ за изпълнение на кода, сега числото е преобразувано в думи.
номер на документ към дума 1

Забележка： Кодът работи само с един номер всеки път.

Преобразувайте число в английски думи с Kutools за Excel

Ако искате да конвертирате числа в думи в Excel лист, има удобен инструмент - Числа към думи на Kutools за Excel, който може да конвертира числа в английски или китайски думи или да конвертира числа в английска или китайска валута.

Kutools за Excel, с повече от 300 удобни функции, прави работата ви по-лесна.

Безплатно сваляне
безплатно пълнофункционално за 30 дни

След безплатно инсталиране Kutools за Excel, моля, направете следното:

1. Изберете клетките, които искате да конвертирате числата в думи, след което щракнете Kutools > съдържание > Числа към думи.
номер на документ към дума 1