Conas uimhir a thiontú go focail i ndoiciméad Word?
Tá an t-alt seo ag caint ar an modh chun na huimhreacha a thiontú go focail Bhéarla i ndoiciméad Word, téigh ar aghaidh chun na sonraí a fheiceáil má tá suim agat ann.
Tiontaigh uimhir go focail Bhéarla le VBA
Tiontaigh uimhir go focail Bhéarla in Excel le Kutools for Excel
Tiontaigh uimhir go focail Bhéarla le VBA
1. Roghnaigh an uimhir is mian leat a thiontú go focail, brúigh Alt + F11 eochracha le hoscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. cliceáil Ionsáigh > Modúil, agus cóipeáil thíos na cóid agus greamaigh iad chuig an Modúil script.
VBA: Tiontaigh uimhir go focail
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. Brúigh F5 eochair chun an cód a rith, anois tá an uimhir tiontaithe go focail.
nótaíWork Ní oibríonn an cód ach ag uimhir amháin gach uair.
Tiontaigh uimhir go focail Bhéarla le Kutools le haghaidh Excel
Más mian leat uimhreacha a thiontú go focail i mbileog Excel, tá uirlis áisiúil ann - Uimhreacha le Focail de Kutools for Excel, ar féidir leo uimhreacha a thiontú go focail Bhéarla nó Shíneacha, nó uimhreacha a thiontú go airgeadra Béarla nó airgeadra Síneach.
Kutools le haghaidh Excel, le níos mó ná 300 feidhmeanna úsáideacha, déanann sé do phoist níos éasca. |
Tar éis suiteáil saor in aisce Kutools for Excel, déan mar atá thíos le do thoil:
1. Roghnaigh na cealla ar mhaith leat uimhreacha a thiontú go focail, ansin cliceáil Kutools > Ábhar > Uimhreacha le Focail.
2. Sa dialóg popping, seiceáil english agus Gan tiontú go Airgeadra roghanna.
3. cliceáil Ok or Cuir iarratas isteach, athrófar na huimhreacha roghnaithe go focail.
Uirlisí Táirgiúlachta Oifige is Fearr
Kutools le haghaidh Word - Elevate Your Word Experience with Over 100 Gnéithe Suntasacha!
🤖 Cúntóir Kutools AI: athraigh do chuid scríbhinn le AI - Gin Ábhar / Athscríobh Téacs / Déan achoimre ar Dhoiciméid / Fiosraigh le haghaidh Faisnéise bunaithe ar Doiciméad, ar fad laistigh de Word
📘 Máistreacht Doiciméad: Leathanaigh Scoilte / Cumaisc Doiciméid / Roghnú Easpórtála i bhFormáidí Éagsúla (PDF/TXT/DOC/HTML...) / Baisc a thiontú go PDF / Easpórtáil Leathanaigh mar Íomhánna / Priontáil Comhaid Il ag an am céanna...
✏ Eagarthóireacht na nÁbhar: Faigh Baisc agus Ionadaigh thar Chomhaid Il / Athraigh Méid Gach Pictiúr / Trasnaigh Rónna Tábla agus Colúin / Tiontaigh Tábla go Téacs...
🧹 Effortless Glan: Sguab as Spásanna Breise / Sosanna Alt / Gach Ceanntásca / Boscaí Téacs / Hipearnasc / Le haghaidh tuilleadh uirlisí a bhaint, ceann chuig ár Bain Grúpa...
➕ Ionsáigh Cruthaitheach: cuir isteach Míle Deighilteoir / Boscaí Seiceála / Cnaipí Raidió / Cód QR / barcode / Tábla Líne Trasnánach / Fotheideal Cothromóid / Fotheideal Íomhá / Fotheideal Tábla / Pictiúir Il / Faigh amach níos mó sa Cuir isteach Grúpa...
🔍 Roghanna Beachtais: Pionta leathanaigh ar leith / táblaí / cruthanna / míreanna ceannteideal / Feabhsaigh an loingseoireacht le níos mó Roghnaigh gnéithe...
⭐ Feabhsuithe Réalta: Déan nascleanúint go tapa chuig aon láthair / cuir isteach téacs athchleachtach go huathoibríoch / scoránaigh gan uaim idir fuinneoga doiciméad / 11 Uirlisí Tiontaithe...