Wie konvertiert man Zahlen in Wörter in einem Word-Dokument?
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.
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.
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.
2. Aktivieren Sie im erscheinenden Dialogfenster die Optionen Englisch und Nicht in Währung umwandeln Optionen.
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!

Die besten Produktivitätstools für das Büro
Kutools für Word – 100+ Werkzeuge für Word
- 🤖 Kutools AI-Features: KI-Assistent / Echtzeit-Assistent / Super Polieren / Super Übersetzen / KI-Redaktion / KI Korrekturlesen
- 📘 Dokumenten-Beherrschung: Seiten teilen / Dokumente zusammenführen / Stapelweise Konvertierung nach PDF
- ✏ Inhaltsbearbeitung: Stapelweise Suchen und Ersetzen / Alle Bilder skalieren
- 🧹 Mühelos bereinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche entfernen
- ➕ Kreative Einfügungen: Tausendertrennzeichen einfügen / Kontrollkästchen einfügen / QR-Codes erstellen
- 🌍 Unterstützt über40 Sprachen: Kutools spricht Ihre Sprache – mehr als40 Sprachen werden unterstützt!