Hur konverterar man tal till ord i Word-dokument?

Denna artikel talar om metoden för att konvertera siffrorna till engelska ord i Word-dokument, fortsätt för att se detaljerna om du är intresserad av.

Konvertera nummer till engelska ord med VBA

Konvertera antal till engelska ord i Excel med Kutools för Excel

Konvertera nummer till engelska ord med VBA

1. Välj det nummer du vill konvertera till ord, tryck på Alt + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. klick Insert > Modulerna, och kopiera nedanstående koder och klistra in dem i Modulerna skript.

VBA: Konvertera nummer till ord

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. Tryck F5 för att köra koden, nu har numret konverterats till ord.

Anmärkningar： Koden fungerar bara med ett nummer varje gång.

Konvertera nummer till engelska ord med Kutools för Excel

Om du vill konvertera siffror till ord i Excel-ark finns det ett praktiskt verktyg - Siffror till ord av Kutools för Excel, som kan konvertera siffror till engelska eller kinesiska ord, eller konvertera nummer till engelsk valuta eller kinesisk valuta.

Efter gratis installation Kutools för Excel, gör så här:

1. Markera cellerna som du vill konvertera siffror till ord och klicka sedan på Kutools > Innehåll > Siffror till ord.

2. Kontrollera i poppdialogen Engelska och Omvandlas inte till valuta alternativ.

3. klick Ok or Ansök, kommer de valda siffrorna att konverteras till ord.

Bästa kontorsproduktivitetsverktyg

Kutools för Word - Höj din ordupplevelse med Over 100 Anmärkningsvärda funktioner!

🤖 Kutools AI Assistant: Förvandla ditt skrivande med AI - Generera innehåll  /  Skriv om text  /  Sammanfatta dokument  /  Fråga för information baserat på dokument, allt i Word

📘 Dokumentbehärskning: Dela sidor  /  Sammanfoga dokument  /  Exportera urval i olika format (PDF/TXT/DOC/HTML...)  /  Batchkonvertera till PDF  /  Exportera sidor som bilder  /  Skriv ut flera filer samtidigt...

✏ Innehållsredigering: Batch Hitta och ersätt över flera filer  /  Ändra storlek på alla bilder  /  Transponera tabellrader och kolumner  /  Konvertera tabell till text...

🧹 Enkel rengöring: Svep bort Extra utrymmen  /  Avsnitt bryter  /  Alla rubriker  /  Textrutor  /  Hyperlänkar  / För fler borttagningsverktyg, gå till vår Ta bort gruppen...

➕ Kreativa inlägg: Föra in Tusen avskiljare  /  Kryssrutor  /  radio Knappar  /  QR-kod  /  Streckkod  /  Diagonal linjebord  /  Bildtext för ekvation  /  Bild Bildtext  /  Tabelltextning  /  Flera bilder  / Upptäck mer i Infoga grupp...

🔍 Precisionsval: Precisera specifika sidor  /  Tabellerna  /  former  /  rubrikerna  / Förbättra navigering med mer Välj funktioner...

⭐ Stjärnförbättringar: Navigera snabbt till vilken plats som helst  /  infoga repetitiv text automatiskt  /  växla sömlöst mellan dokumentfönster  /  11 Konverteringsverktyg...

👉 Vill du prova dessa funktioner? Kutools för Word erbjuder en 60-dagars gratis försök, utan begränsningar! 🚀

Gratis nedladdning     Läs mer     Köp nu