Zum Hauptinhalt springen

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

Author: Sun Last Modified: 2025-08-06

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.

Die besten Produktivitätstools für das Büro

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

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

📘 Dokumenten-Beherrschung: Seiten teilen / Dokumente zusammenführen / Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...) / Stapelweise Konvertierung nach PDF...

Inhaltsbearbeitung: Stapelweise Suchen und Ersetzen über mehrere Dateien / Alle Bilder skalieren / Tabellenzeilen und -spalten transponieren / Tabelle in Text umwandeln...

🧹 Mühelos bereinigen: Entfernen Sie ganz einfach zusätzliche Leerzeichen / Abschnittsumbrüche / Textfelder / Hyperlinks / Weitere Entfernen-Werkzeuge finden Sie in der Gruppe Entfernen...

Kreative Einfügungen: Tausendertrennzeichen einfügen / Kontrollkästchen / Optionsfelder / QR-Code / Barcode / Mehrere Bilder / Entdecken Sie weitere Funktionen im Bereich Einfügen...

🔍 Präzise Auswahl: Bestimmen Sie gezielt bestimmte Seiten / Tabellen / Formen / Überschriftenabsätze / Verbessern Sie die Navigation mit weiteren Auswählen -Funktionen...

Herausragende Verbesserungen: Navigieren Sie zu beliebigen Standorten / Automatisches Einfügen von wiederkehrendem Text / Umschalten zwischen Dokument-Fenstern /11 Konvertierungswerkzeuge...

🌍 Unterstützt über40 Sprachen: Nutzen Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und mehr als40 weitere!

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

Die besten Produktivitätstools für das Büro

Kutools für Word – 100+ Werkzeuge für Word