Πώς να μετατρέψετε τον αριθμό σε λέξεις στο έγγραφο του Word;

Αυτό το άρθρο μιλάει για τη μέθοδο μετατροπής των αριθμών σε αγγλικές λέξεις στο έγγραφο του Word, συνεχίστε για να δείτε τις λεπτομέρειες εάν σας ενδιαφέρουν.

Μετατροπή αριθμού σε αγγλικές λέξεις με VBA

Μετατροπή αριθμού σε αγγλικές λέξεις στο Excel με Kutools για Excel

Μετατροπή αριθμού σε αγγλικές λέξεις με VBA

1. Επιλέξτε τον αριθμό που θέλετε να μετατρέψετε σε λέξεις, πατήστε Alt + F11 κλειδιά για άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο.

2. κλικ Κύριο θέμα > Μονάδα μέτρησηςκαι αντιγράψτε τους παρακάτω κωδικούς και επικολλήστε τους στο Μονάδα μέτρησης γραφή.

VBA: Μετατροπή αριθμού σε λέξεις

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. Τύπος F5 κλειδί για την εκτέλεση του κώδικα, τώρα ο αριθμός έχει μετατραπεί σε λέξεις.

Note： Ο κωδικός λειτουργεί μόνο σε έναν αριθμό κάθε φορά.

Μετατροπή αριθμού σε αγγλικές λέξεις με το Kutools για Excel

Εάν θέλετε να μετατρέψετε αριθμούς σε λέξεις στο φύλλο Excel, υπάρχει ένα εύχρηστο εργαλείο - Αριθμοί σε λέξεις του Kutools για Excel, το οποίο μπορεί να μετατρέψει αριθμούς σε αγγλικές ή κινεζικές λέξεις ή να μετατρέψει αριθμούς σε αγγλικό νόμισμα ή κινεζικό νόμισμα.

Μετά το δωρεάν εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:

1. Επιλέξτε τα κελιά που θέλετε να μετατρέψετε αριθμούς σε λέξεις και, στη συνέχεια, κάντε κλικ στο Kutools > Περιεχόμενο > Αριθμοί σε λέξεις.

2. Στο αναδυόμενο παράθυρο διαλόγου, επιλέξτε Αγγλικά και Δεν μετατράπηκε σε Νόμισμα επιλογές.

3. κλικ Ok or Εφαρμογή, οι επιλεγμένοι αριθμοί θα μετατραπούν σε λέξεις.

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Kutools για το Word - Βελτιώστε την εμπειρία σας στο Word με το Over 100 Αξιοσημείωτα χαρακτηριστικά!

🤖 Kutools AI Assistant: Μεταμορφώστε το γραπτό σας με AI - Δημιουργία Περιεχομένου  /  Ξαναγράψτε το κείμενο  /  Συνοψίστε τα έγγραφα  /  Ζητήστε πληροφορίες με βάση το Έγγραφο, όλα μέσα στο Word

📘 Κυριαρχία εγγράφων: Διαίρεση σελίδων  /  Συγχώνευση εγγράφων  /  Εξαγωγή επιλογής σε διάφορες μορφές (PDF/TXT/DOC/HTML...)  /  Μαζική μετατροπή σε PDF  /  Εξαγωγή σελίδων ως εικόνες  /  Εκτύπωση πολλών αρχείων ταυτόχρονα...

✏ Επεξεργασία Περιεχομένων: Μαζική εύρεση και αντικατάσταση σε πολλά αρχεία  /  Αλλαγή μεγέθους όλων των εικόνων  /  Μεταφορά σειρών και στηλών πίνακα  /  Μετατροπή πίνακα σε κείμενο...

🧹 Καθαρισμός χωρίς κόπο: Σαρώστε μακριά Επιπλέον χώροι  /  Διακοπές ενότητας  /  Όλες οι κεφαλίδες  /  Κουτιά κειμένου  /  Υπερ-συνδέσεις  / Για περισσότερα εργαλεία αφαίρεσης, κατευθυνθείτε στο δικό μας Κατάργηση ομάδας...

➕ Δημιουργικά ένθετα: Εισάγετε Χιλιάδες Διαχωριστές  /  Πλαίσια ελέγχου  /  Κουμπιά ραδιοφώνου  /  QR Code  /  barcode  /  Διαγώνιος γραμμικός πίνακας  /  Λεζάντα εξίσωσης  /  Λεζάντα εικόνας  /  Λεζάντα πίνακα  /  Πολλαπλές εικόνες  / Ανακαλύψτε περισσότερα στο Εισαγωγή ομάδας...

🔍 Επιλογές Ακρίβειας: Επισήμανση συγκεκριμένες σελίδες  /  πίνακες  /  σχήματα  /  επικεφαλίδες παραγράφους  / Βελτιώστε την πλοήγηση με περισσότερο Επιλέξτε χαρακτηριστικά...

⭐ Βελτιώσεις αστεριών: Πλοηγηθείτε γρήγορα σε οποιαδήποτε τοποθεσία  /  αυτόματη εισαγωγή επαναλαμβανόμενου κειμένου  /  εναλλαγή μεταξύ των παραθύρων εγγράφων  /  11 Εργαλεία μετατροπής...

???? Θέλετε να δοκιμάσετε αυτές τις δυνατότητες; Το Kutools για το Word προσφέρει α Δωρεάν δοκιμαστική περίοδο 60, χωρίς περιορισμούς! 🚀

Δωρεάν κατέβασμα     Δείτε Περισσότερα     Άμεση αγορά