Zum Hauptinhalt springen

Wie konvertiert man Zahlen in Wörter in einem Word-Dokument?

Author: Sun Last Modified: 2025-05-28

Dieser Artikel behandelt die Methode, Zahlen in englische Wörter in einem Word-Dokument umzuwandeln. Wenn Sie daran interessiert sind, lesen Sie bitte weiter, um weitere Details zu erfahren.

Zahl mit VBA in englische Wörter umwandeln

Zahl mit Kutools für Excel in englische Wörter in Excel umwandeln


Zahl mit VBA in englische Wörter umwandeln

1. Wählen Sie die Zahl aus, die Sie in Wörter umwandeln möchten, und drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul, und kopieren Sie den folgenden Code. Fügen Sie ihn im Modul-Skript ein.

VBA: Zahl in Wörter umwandeln

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. Drücken Sie F5 , um den Code auszuführen. Nun wurde die Zahl in Wörter umgewandelt.
Number converted to English words

Hinweis: Der Code funktioniert jeweils nur für eine Zahl.


Zahl mit Kutools für Excel in englische Wörter umwandeln

Wenn Sie Zahlen in einem Excel-Arbeitsblatt in Wörter umwandeln möchten, gibt es ein praktisches Tool – In Wörter umwandeln von Kutools für Excel, das Zahlen in englische oder chinesische Wörter, oder auch in englische oder chinesische Währungen umwandeln kann.

Kutools für Excel,ausgestattet mit KI 🤖, bietet über 300 praktische Funktionen, um Ihre Aufgaben zu vereinfachen.

Nach der kostenlosen Installation von Kutools für Excel gehen Sie bitte wie folgt vor:

1. Wählen Sie die Zellen aus, die Sie in Wörter umwandeln möchten, und klicken Sie dann auf Kutools > Text > In Wörter umwandeln.
Numbers to Words option on the Kutools tab on the Excel ribbon

2. Aktivieren Sie im erscheinenden Dialogfenster die Optionen Englisch und Nicht in Währung umwandeln Optionen.
Numbers to Words dialog box

3. Klicken Sie auf OK oder Anwenden, und die ausgewählten Zahlen werden in Wörter umgewandelt.

Beste Büroproduktivitätswerkzeuge

Kutools für Word - Verbessern Sie Ihr Word-Erlebnis mit über 100 bemerkenswerten Funktionen!

🤖 Kutools AI-Funktionen: KI-Assistent / Echtzeit-Assistent / Super Polieren (Format beibehalten) / Super Übersetzen (Format beibehalten) / KI-Redaktion / KI Korrekturlesen...

📘 Dokumentenbeherrschung: Seiten teilen / Dokumente zusammenführen / Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...) / Stapelweise in PDF konvertieren...

Inhaltsbearbeitung: Stapelweise Suchen und Ersetzen in mehreren Dateien / Alle Bilder skalieren / Zeilen und Spalten der Tabelle transponieren / Tabelle in Text umwandeln...

🧹 Müheloses Reinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche / Textfelder / Hyperlinks / Für weitere Entfernungstools gehen Sie zur Entfernen-Gruppe...

Kreative Einfügungen: Tausendertrennzeichen einfügen / Kontrollkästchen / Optionsfelder / QR-Code / Barcode / Mehrere Bilder / Entdecken Sie mehr in der Einfügen-Gruppe...

🔍 Präzise Auswahlen: Bestimmte Seiten / Tabellen / Formen / Überschriftenabsätze / Verbessern Sie die Navigation mit mehr Auswahlfunktionen ...

Sterneverbesserungen: Zu jedem Standort navigieren / Automatisches Einfügen von wiederholtem Text / Wechsel zwischen Dokumentfenstern /11 Konvertierungswerkzeuge...

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Möchten Sie diese Funktionen ausprobieren? Laden Sie Kutools für Word jetzt herunter! 🚀