Kuinka muuntaa numerot sanoiksi Word-asiakirjassa?
Tämä artikkeli käsittelee menetelmää, jolla numerot muunnetaan englanninkielisiksi Word-asiakirjassa, katso yksityiskohdat, jos olet kiinnostunut.
Muunna numero englanninkielisiksi sanoiksi VBA:lla
Muunna numero englanninkielisiksi sanoiksi Excelissä Kutools for Excelin avulla
Muunna numero englanninkielisiksi sanoiksi VBA:lla
1. Valitse numero, jonka haluat muuntaa sanoiksi, paina Alt + F11 avaimet Microsoft Visual Basic for Applications ikkunassa.
2. napsauttaa liite > Moduulitja kopioi alla olevat koodit ja liitä ne Moduulit skriptejä.
VBA: Muunna numero sanoiksi
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 Sub3. Lehdistö F5 koodin suorittamiseen, nyt numero on muutettu sanoiksi.
Huomautuksia: Koodi toimii vain yhdelle numerolle joka kerta.
Muunna numero englanninkielisiksi Kutools for Excelin avulla
Jos haluat muuntaa numerot sanoiksi Excel-taulukossa, on kätevä työkalu - Numerot sanoiksi Kutools for Excel, joka voi muuntaa numerot englannin tai kiinan sanoiksi tai muuntaa numerot englannin tai kiinan valuutaksi.
Jälkeen ilmainen asennus Kutools for Excel, toimi seuraavasti:
1. Valitse solut, jotka haluat muuntaa luvut sanoiksi, ja napsauta sitten Kutools > Sisältö > Numerot sanoiksi.
2. Tarkista ponnahdusikkunassa Englanti ja Ei muunnettu valuutaksi vaihtoehtoja.
3. napsauttaa Ok or käyttää, valitut luvut muunnetaan sanoiksi.
Parhaat toimiston tuottavuustyökalut
Kutools for Word - Paranna sanakokemustasi Overilla 100 Merkittäviä ominaisuuksia!
🤖 Kutools AI -ominaisuudet: AI-avustaja / Reaaliaikainen avustaja / Super Polish (säilytettävä muoto) / Super Translate (säilytä muoto) / AI editointi / AI Proofread...
📘 Asiakirjan hallinta: Jaa sivut / Yhdistä asiakirjat / Vie valikoima eri muodoissa (PDF/TXT/DOC/HTML...) / Erämuunnos PDF-muotoon...
✏ Sisältö Editointi: Eräetsi ja korvaa useita tiedostoja / Muuta kaikkien kuvien kokoa / Transponoi taulukon rivit ja sarakkeet / Muunna taulukko tekstiksi...
🧹 Vaivaton puhdistus: Pyyhkäise pois Ylimääräiset tilat / Leikkaukset / Tekstilaatikot / Hyperlinkit / Jos haluat lisää irrotustyökaluja, siirry kohtaan poista ryhmä...
➕ Luovat lisäosat: Aseta Tuhat erottimet / Valintaruudut / Radiopainikkeet / QR koodi / Viivakoodi / Useita kuvia / Tutustu lisää osoitteessa liite ryhmä...
🔍 Tarkkuusvalinnat: Tarkka kohta Tietyt sivut / taulukot / Muodot / Otsikko Kappaleet / Paranna navigointia lisää valita piirteet...
⭐ Tähtien parannukset: Siirry mihin tahansa sijaintiin / Lisää toistuvaa tekstiä automaattisesti / Vaihda asiakirjaikkunoiden välillä / 11 Muuntaminen Työkalut...
Parhaat toimiston tuottavuustyökalut
Kutools for Word - Yli 100 Wordin työkalua
- 🤖 Kutools AI -ominaisuudet: AI-avustaja / Reaaliaikainen avustaja / Super puolalainen / Super käännös / AI editointi / AI Proofread
- 📘 Asiakirjan hallinta: Jaa sivut / Yhdistä asiakirjat / Erämuunnos PDF-muotoon
- ✏ Sisältö Editointi: Erä Etsi ja korvaa / Muuta kaikkien kuvien kokoa
- 🧹 Vaivaton puhdistus: Poista ylimääräiset välilyönnit / Poista osion katkokset
- ➕ Luovat lisäosat: Aseta Tuhat erottimet / Lisää valintaruudut / Luo QR-koodeja