Wie konvertiere ich Zahlen in Wörter in Word-Dokumenten?

In diesem Artikel wird die Methode zum Konvertieren der Zahlen in englische Wörter im Word-Dokument beschrieben. Wenn Sie interessiert sind, lesen Sie bitte die Details.

Konvertieren Sie Zahlen in englische Wörter mit VBA

Konvertieren Sie Zahlen in Excel in englische Wörter mit Kutools for Excel

Konvertieren Sie Zahlen in englische Wörter mit VBA

1. Wählen Sie die Zahl aus, die Sie in Wörter umwandeln möchten, und drücken Sie Alt + F11 Schlüssel zum Öffnen Microsoft Visual Basic für Applikationen Fenster.

2 Klicken Insert > Modul, und kopieren Sie die folgenden Codes und fügen Sie sie in die ein Modul Skripte.

VBA: Konvertieren Sie Zahlen in Wörter

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 Schlüssel zum Ausführen des Codes, jetzt wurde die Nummer in Wörter konvertiert.

Note： Der Code funktioniert jedes Mal nur mit einer Nummer.

Konvertieren Sie Zahlen in englische Wörter mit Kutools for Excel

Wenn Sie Zahlen in Excel-Tabellen in Wörter konvertieren möchten, gibt es ein praktisches Tool: Zahlen zu Wörtern von Kutools für Excel, das Zahlen in englische oder chinesische Wörter oder Zahlen in englische oder chinesische Währung konvertieren kann.

Nach der kostenlose Installation Kutools für Excel, bitte gehen Sie wie folgt vor:

1. Wählen Sie die Zellen aus, in die Sie Zahlen in Wörter umwandeln möchten, und klicken Sie dann auf Kutoolen > Inhalt > Zahlen zu Wörtern.

2. Überprüfen Sie im Popup-Dialogfeld Englisch und Nicht in Währung umgerechnet Optionen.

3 Klicken Ok or Jetzt bewerbenwerden die ausgewählten Zahlen in Wörter umgewandelt.

Beste Office-Produktivitätstools

Kutools for Word - Steigern Sie Ihr Word-Erlebnis mit Over 100 Bemerkenswerte Funktionen!

🤖 Kutools KI-Assistent: Verwandeln Sie Ihr Schreiben mit KI – Inhalte generieren  /  Text umschreiben  /  Dokumente zusammenfassen  /  Erkundigen Sie sich nach Informationen basierend auf Dokument, alles in Word

📘 Dokumentenbeherrschung: Seiten teilen  /  Dokumente zusammenführen  /  Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...)  /  Stapelkonvertierung in PDF  /  Seiten als Bilder exportieren  /  Drucken Sie mehrere Dateien gleichzeitig...

✏ Inhaltsbearbeitung: Batch suchen und ersetzen über mehrere Dateien hinweg  /  Größe aller Bilder ändern  /  Vertauschen Sie Tabellenzeilen und -spalten  /  Tabelle in Text konvertieren...

🧹 Mühelose Reinigung: Wegfegen Zusätzliche Räume  /  Abschnittswechsel  /  Alle Header  /  Textfelder  /  Hyperlinks  / Weitere Entfernungswerkzeuge finden Sie auf unserer Gruppe entfernen...

➕ Kreative Einsätze: Einfügen Tausend Trennzeichen  /  Kontrollkästchen  /  Radio Knöpfe  /  QR Code  /  Strichcode  /  Diagonale Linientabelle  /  Gleichungsbeschriftung  /  Bildunterschrift  /  Tabellenüberschrift  /  Mehrere Bilder  / Entdecken Sie mehr im Gruppe einfügen...

🔍 Präzise Auswahl: Punktgenau bestimmte Seiten  /  Tabellen  /  Formen  /  Überschriften von Absätzen  / Verbessern Sie die Navigation mit mehr Wählen Sie Funktionen aus...

⭐ Star-Verbesserungen: Navigieren Sie schnell zu jedem Ort  /  Sich wiederholenden Text automatisch einfügen  /  Wechseln Sie nahtlos zwischen Dokumentfenstern  /  11 Konvertierungstools...

👉 Möchten Sie diese Funktionen ausprobieren? Kutools für Word bietet a 60-Tage kostenlose Testversion, ohne Einschränkungen! 🚀

Free Download     Weiterlesen     JETZT KAUFEN