Conas uimhir a thiontú go wordi Word doiciméad?

Tá an t-alt seo ag caint faoin modh chun na huimhreacha a thiontú go Béarla wordi Word doiciméad, téigh ar aghaidh chun na sonraí a fheiceáil má tá suim agat ann.

Tiontaigh uimhir go Béarla words le VBA

Tiontaigh uimhir go Béarla wordi Excel le Kutools for Excel

Tiontaigh uimhir go Béarla words le VBA

1. Roghnaigh an uimhir is mian leat a thiontú go words, 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 words

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 comhshó go words.

nótaíWork Ní oibríonn an cód ach ag uimhir amháin gach uair.

Tiontaigh uimhir go Béarla words le Kutools for Excel

Más mian leat uimhreacha a thiontú go wordi Excel bileog, tá uirlis áisiúil - Uimhreacha go Words of Kutools for Excel, ar féidir uimhreacha a thiontú go Béarla nó go Sínis words, nó uimhreacha a thiontú go airgeadra Béarla nó airgeadra Síneach.

Tar éis suiteáil saor in aisce Kutools for Excel, déan mar atá thíos le do thoil:

1. Roghnaigh na cealla gur mian leat uimhreacha a thiontú go words, ansin cliceáil Kutools > Ábhar > Uimhreacha go Words.

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

3. cliceáil Ok or Cuir iarratas isteach, déanfar na huimhreacha roghnaithe a thiontú go words.

---

molta Word Uirlisí Táirgiúlachta

 

Kutools For Word - Níos mó ná 100 Ardghnéithe Do Word, Sábháil Do Am 50%.

• Is féidir oibríochtaí casta agus arís agus arís eile a dhéanamh próiseáil aon-uaire i soicindí.
• Cuir isteach íomhánna iolracha trasna fillteáin isteach Word doiciméad láithreach.
• Cumaisc agus cuir le chéile iolrach Word comhaid trasna fillteáin isteach i gceann le d'ordú inmhianaithe.
• Roinn an doiciméad reatha i ndoiciméid ar leithligh de réir ceannteidil, briseadh ailt nó critéir eile.
• Tiontaigh comhaid idir Doc agus Docx, Docx agus PDF, bailiú uirlisí le haghaidh comhshó agus roghnú coitianta, agus mar sin de ...

Leigh Nios mo Íosluchtaigh Anois Ceannach