Zum Hauptinhalt springen

Kutools für Office — Eine Suite. Fünf Tools. Erledigen Sie mehr.

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

Author Sun Last modified

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 for Word – Erweitern Sie Ihr Word-Erlebnis mit mehr als 100 bemerkenswerten Funktionen!

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

📘 Dokument beherrschen: Seiten aufteilen / Dokumente zusammenführen / Bereich in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML ...) / Stapelweise Konvertierung zu PDF ...

✏ Text bearbeiten: Stapelweise Suchen und Ersetzen in mehreren Dateien / Alle Bilder skalieren / Tabelle transponieren (Zeilen und Spalten) / Tabelle in Text umwandeln ...

🧹 Mühelos reinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche / Textfeld / Verknüpfungen / Weitere Entfernen-Werkzeuge finden Sie in der Gruppe Entfernen ...

➕ Kreative Einfügen: Tausendertrennzeichen einfügen / Kontrollkästchen / Optionsfeld / QR-Code / Barcode / Mehrere Bilder / Entdecken Sie weitere Funktionen in der Gruppe Einfügen ...

🔍 Präzise Auswahl: Einzelne Seiten, Referenztabellen, Form, Überschriftenabsatz gezielt festlegen / Navigation mit weiteren Auswählen -Features verbessern ...

⭐ Besondere Erweiterungen: Zu jedem Bereich navigieren / Automatisches Einfügen von wiederkehrendem Text / Zwischen Dokument-Fenster umschalten /11 Konvertierungs-Werkzeuge ...

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

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Möchten Sie diese Funktionen ausprobieren? Jetzt Kutools for Word herunterladen! 🚀
 

✨ Kutools for Office – Eine Installation, fünf leistungsstarke Tools!

Enthält Office Tab Pro · Kutools für Excel · Kutools für Outlook · Kutools for Word · Kutools for PowerPoint

📦 Alle5 Tools in einer Suite erhalten | 🔗 Nahtlose Integration in Microsoft Office | ⚡ Sofort Zeit sparen und Produktivität steigern

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

Kutools for Word – 100+ Tools für Word

Kostenloser Download Jetzt kaufen Mehr erfahren über Kutools