Salt la conținutul principal
 

Cum se convertește numărul în cuvinte în documentul Word?

Autor: Sun Ultima modificare: 2024-08-09

Acest articol vorbește despre metoda de conversie a numerelor în cuvinte în limba engleză din documentul Word, vă rugăm să continuați pentru a vedea detaliile dacă sunteți interesat.

Conversia numărului în cuvinte în engleză cu VBA

Convertiți numărul în cuvinte în limba engleză în Excel cu Kutools pentru Excel


Conversia numărului în cuvinte în engleză cu VBA

1. Selectați numărul pe care doriți să îl convertiți în cuvinte, apăsați Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. clic Insera > Module, și copiați codurile de mai jos și lipiți-le în Module script-ul.

VBA: convertiți numărul în cuvinte

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. presa F5 tasta pentru a rula codul, acum numărul a fost convertit în cuvinte.
Numărul convertit în cuvinte englezești

notițe: Codul funcționează doar pentru un număr de fiecare dată.


Convertiți numărul în cuvinte în limba engleză cu Kutools pentru Excel

Dacă doriți să convertiți numerele în cuvinte în foaia Excel, există un instrument la îndemână - Numere la cuvinte din Kutools pentru Excel, care poate converti numerele în cuvinte englezești sau chinezești sau poate converti numere în monedă engleză sau monedă chineză.

Kutools pentru Excel, echipat cu AI 🤖, oferă peste 300 de funcții utile pentru a vă simplifica sarcinile.

Dupa instalare gratuită Kutools pentru Excel, faceți următoarele:

1. Selectați celulele pe care doriți să le convertiți în cuvinte, apoi faceți clic pe Kutools > Conţinut > Numere la cuvinte.
Opțiunea Numere în cuvinte din fila Kutools din panglica Excel

2. În dialogul popping, bifați Engleză si Nu este convertit în valută opțiuni.
Caseta de dialog Numere în cuvinte

3. clic Ok or Aplică, numerele selectate vor fi convertite în cuvinte.

Cele mai bune instrumente de productivitate de birou

Kutools pentru Cuvânt - Crește-ți experiența Word cu Over 100 Caracteristici remarcabile!

🤖 Caracteristici Kutools AI: Generați conținut / Rescrie textul / Documente Întrebări și răspunsuri / Obțineți răspunsuri rapide / Traduceți documente / Document polonez (format păstrat)...

📘 Stăpânirea documentelor: Pagini împărțite / Fuzionați documente / Exportați selecția în diferite formate (PDF/TXT/DOC/HTML...) / Conversie lot în PDF...

Editarea continutului: Găsiți și înlocuiți în loturi în mai multe fișiere / Redimensionați toate imaginile / Transpuneți rânduri și coloane de tabel / Convertiți tabelul în text...

🧹 Curățare fără efort: Îndepărtați Spații suplimentare / Secțiuni pauze / Casete text / hiperlinkuri / Pentru mai multe instrumente de îndepărtare, mergeți la Elimină grup...

Inserții creative: Inserați Mii de separatori / Casete de bifare / Butoane radio / QR Code / coduri de bare / Imagini multiple / Descoperiți mai multe în Insera grup...

???? Selectii de precizie: Repera cu precizie Pagini specifice / Mese / Forme / Paragrafe de titlu / Îmbunătățiți navigarea cu mai mult Selectați caracteristici...

Îmbunătățiri de stele: Navigați la orice locație / Inserarea automată a textului repetitiv / Comutați între ferestrele documentelor / 11 Convertire Instrumente...

Filele Kutools și Kutools Plus de pe Panglica Word
???? Vrei să încerci aceste funcții? Descărcați Kutools pentru Word acum! 🚀
 

Cele mai bune instrumente de productivitate de birou

Kutools pentru Cuvânt - Peste 100 de instrumente pentru Word