Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս վերափոխել բառը բառի մեջ Word փաստաթղթում:

Այս հոդվածում խոսվում է Word փաստաթղթում թվերը անգլերեն բառերի վերափոխելու մեթոդի մասին, խնդրում եմ շարունակեք դիտել մանրամասները, եթե ձեզ հետաքրքրում է:

Վերափոխեք համարը VBA- ի հետ անգլերեն բառերի

Excel- ում Kutools- ի հետ թիվը փոխակերպեք անգլերեն բառերի


Վերափոխեք համարը VBA- ի հետ անգլերեն բառերի

1. Ընտրեք համարը, որը ցանկանում եք բառերի վերածել, սեղմել Alt + F11 բացելու ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: սեղմեք Տեղադրել > Մոդուլներ, և պատճենեք ներքևի ծածկագրերը և տեղադրեք դրանք Մոդուլներ սցենար:

VBA. Փոխակերպիր համարը բառերի

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. Մամուլ F5 կոդը գործարկելու բանալին, այժմ համարը վերածվել է բառերի:
փաստաթղթի համարը բառի 1-ին

Նշում: Կոդն ամեն անգամ գործում է միայն մեկ համարով:


Excel- ի համար Kutools- ի հետ թիվը փոխակերպեք անգլերեն բառերի

Եթե ​​ցանկանում եք Excel թերթում թվերը վերածել բառերի, կա հարմար գործիք - Բառեր համարներ Excel- ի համար Kutools- ի համար, որը կարող է թվերը վերածել անգլերեն կամ չինական բառերի կամ թվերը փոխարկել անգլերեն արժույթի կամ չինական արժույթի:

Excel- ի համար նախատեսված գործիքներ, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: 

Այն բանից հետո անվճար տեղադրում Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝

1. Ընտրեք այն բջիջները, որոնք ցանկանում եք թվերը վերածել բառերի, ապա կտտացրեք Կուտոլս > Պարունակություն > Բառեր համարներ.
փաստաթղթի համարը բառի 1-ին

2. Բացվող պատուհանում ստուգեք Անգլերեն և Չի փոխարկվել արտարժույթի տարբերակները.
փաստաթղթի համարը բառի 1-ին

3: սեղմեք Ok or Դիմել, ընտրված համարները կվերածվեն բառերի:


Բառի արտադրողականության առաջարկվող գործիքներ

 

Kutools Word- ի համար. Word- ի ավելի քան 100 առաջադեմ առանձնահատկություններ, խնայեք ձեր 50% ժամանակը

  • Բարդ և կրկնվող գործողությունները կարող են կատարվել միանգամյա մշակմամբ վայրկյանների ընթացքում:
  • Տեղադրեք բազմաթիվ պատկերներ միանգամից թղթապանակների մեջ Word փաստաթղթում:
  • Միացրեք և միացրեք բազմաթիվ Word ֆայլեր թղթապանակների մեջ մեկում ՝ ձեր ցանկալի պատվերի հետ:
  • Ընթացիկ փաստաթուղթը բաժանեք առանձին փաստաթղթերի `ըստ վերնագրի, հատվածի ընդմիջման կամ այլ չափանիշների:
  • Փոխարկել ֆայլերը Doc- ի և Docx- ի, Docx- ի և PDF- ի միջև, ընդհանուր փոխակերպումների և ընտրության գործիքների հավաքածու և այլն ...
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (0)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր