Kako pretvoriti številko v besede v dokumentu Word?

Ta članek govori o načinu pretvorbe številk v angleške besede v Wordovem dokumentu, nadaljujte in si oglejte podrobnosti, če vas zanima.

Pretvorite številko v angleške besede z VBA

Pretvorite številko v angleške besede v Excelu s programom Kutools za Excel

Pretvorite številko v angleške besede z VBA

1. Izberite številko, ki jo želite pretvoriti v besede, pritisnite Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. klik Vstavi > Moduliin kopirajte spodnje kode in jih prilepite v Moduli skripta.

VBA: Pretvori številko v besede

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. Pritisnite F5 tipko za zagon kode, zdaj je številka pretvorjena v besede.

Opombe： Koda deluje vsakič samo na eno številko.

Pretvorite številko v angleške besede s programom Kutools for Excel

Če želite pretvoriti številke v besede v Excelovem listu, je na voljo priročno orodje - Številke v besede Kutools za Excel, ki lahko pretvori številke v angleške ali kitajske besede ali pretvori številke v angleško valuto ali kitajsko valuto.

po brezplačna namestitev Kutools za Excel, naredite spodaj:

1. Izberite celice, v katere želite pretvoriti številke v besede, in kliknite Kutools > vsebina > Številke v besede.

2. V pojavnem pogovornem oknu potrdite Angleščina in Ni pretvorjeno v valuto opcije.

3. klik Ok or Uporabi, bodo izbrane številke pretvorjene v besede.

Najboljša pisarniška orodja za produktivnost

Kutools za Word - Izboljšajte svojo besedno izkušnjo z Over 100 Izjemne lastnosti!

🤖 Kutools AI pomočnik: Preoblikujte svoje pisanje z AI - Ustvarite vsebino  /  Prepiši besedilo  /  Povzemite dokumente  /  Povprašajte za informacije na podlagi dokumenta, vse v Wordu

📘 Obvladovanje dokumentov: Razdeljene strani  /  Spoji dokumente  /  Izvozi izbor v različnih formatih (PDF/TXT/DOC/HTML ...)  /  Paketna pretvorba v PDF  /  Izvozi strani kot slike  /  Natisnite več datotek hkrati...

✏ Urejanje vsebine: Serijsko iskanje in zamenjava čez več datotek  /  Spremeni velikost vseh slik  /  Prenos vrstic in stolpcev tabele  /  Pretvori tabelo v besedilo...

🧹 Čiščenje brez napora: Pometite stran Dodatni prostori  /  Prelomi oddelkov  /  Vse glave  /  Besedilna polja  /  Hiperpovezave  / Za več orodij za odstranjevanje pojdite na naš Odstrani skupino...

➕ Ustvarjalni vložki: Vstavi Tisoč ločila  /  Potrditvena polja  /  Radijske tipke  /  QR koda  /  Črtna koda  /  Tabela z diagonalno črto  /  Naslov enačbe  /  Opis slike  /  Naslov tabele  /  Več slik  / Odkrijte več v Vstavi skupino...

???? Natančne izbire: Natančna točka določene strani  /  mize  /  Oblike  /  odstavki naslova  / Izboljšajte navigacijo z več Izberite funkcije...

⭐ Izboljšave zvezdic: Hitra navigacija do katere koli lokacije  /  samodejno vstavljanje ponavljajočega se besedila  /  brez težav preklapljate med okni dokumentov  /  11 Orodja za pretvorbo...

???? Želite preizkusiti te funkcije? Kutools for Word ponuja a 60-dan brezplačni preskus, brez omejitev! 🚀

Brezplačen prenos     Preberi več     Kupi zdaj