Skip to main content

Conas uimhir a thiontú go focail i ndoiciméad Word?

Údar: Sun Athraithe Deiridh: 2020-09-08

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.
uimhir doc go focal 1

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.
uimhir doc go focal 1

2. Sa dialóg popping, seiceáil english agus Gan tiontú go Airgeadra roghanna.
uimhir doc go focal 1

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  /  Faigh Freagraí Tapa, 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  / Chun níos mó uirlisí a bhaint, ceann go dtí an Bain an 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 Sonracha  /  Táblaí  /  cruthanna  /  Míreanna Ceannteideal  / Feabhsaigh an loingseoireacht le níos mó Roghnaigh gnéithe...

Feabhsuithe Réalta: Déan nascleanúint chuig Suíomh ar bith  /  Uath-Ionsáigh Téacs Athchleachtach  /  Scoránaigh Idir Windows Doiciméad  /  11 Uirlisí Tiontaithe...

???? Ar mhaith leat triail a bhaint as na gnéithe seo? Íoslódáil Kutools le haghaidh Word anois! 🚀
 
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations