Sådan konverteres tal til wordsi Word dokumentere?

Denne artikel taler om metoden til at konvertere tallene til engelsk wordsi Word dokument, fortsæt venligst for at se detaljerne, hvis du er interesseret i.

Konverter tal til engelsk words med VBA

Konverter tal til engelsk wordsi Excel med Kutools for Excel

Konverter tal til engelsk words med VBA

1. Vælg det tal, du vil konvertere til words, tryk Alt + F11 taster for at åbne Microsoft Visual Basic til applikationer vindue.

2. klik indsatte > Moduler, og kopier nedenstående koder og indsæt dem i Moduler scripts.

VBA: Konverter tal til words

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. Trykke F5 tasten for at køre koden, nu er nummeret konverteret til words.

Bemærk： Koden fungerer kun på et nummer hver gang.

Konverter tal til engelsk words med Kutools for Excel

Hvis du vil konvertere tal til wordsi Excel ark, der er et praktisk værktøj - Tal til Words of Kutools for Excel, som kan konvertere tal til engelsk eller kinesisk words, eller konverter tal til engelsk valuta eller kinesisk valuta.

Efter gratis installation Kutools for Excelskal du gøre som nedenfor:

1. Vælg de celler, som du vil konvertere tal til words, og klik derefter Kutools > Indhold > Tal til Words.

2. Kontroller i poppedialogen Engelsk Ikke konverteret til valuta valgmuligheder.

3. klik Ok or Indløs, vil de valgte tal blive konverteret til words.

---

Anbefales Word Produktivitetsværktøjer

 

Kutools For Word - Mere end 100 avancerede funktioner til Word, Spar din 50 % tid

• Komplicerede og gentagne operationer kan udføres engangsbehandling på få sekunder.
• Indsæt flere billeder på tværs af mapper i Word dokument med det samme.
• Flet og kombiner flere Word filer på tværs af mapper i én med din ønskede rækkefølge.
• Opdel det aktuelle dokument i separate dokumenter efter overskrift, sektionsskift eller andre kriterier.
• Konverter filer mellem Doc og Docx, Docx og PDF, samling af værktøjer til almindelige konverteringer og markering osv. ...

Læs mere Hent nu Køb