Přejít k hlavnímu obsahu

Jak převést číslo na slova v dokumentu Word?

Autor: Sun Naposledy změněno: 2020-09-08

Tento článek hovoří o metodě převodu čísel na anglická slova v dokumentu Word. Pokud vás zajímá, přejděte na podrobnosti.

Převeďte číslo na anglická slova pomocí VBA

Převod čísla na anglická slova v aplikaci Excel pomocí Kutools pro Excel


Převeďte číslo na anglická slova pomocí VBA

1. Vyberte číslo, které chcete převést na slova, stiskněte Alt + F11 klíče k otevření Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modula zkopírujte níže uvedené kódy a vložte je do Modul skripty.

VBA: Převést číslo na slova

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. lis F5 klíč ke spuštění kódu, nyní bylo číslo převedeno na slova.
číslo dokumentu do slova 1

Poznámka: Kód funguje vždy pouze na jednom čísle.


Převeďte číslo na anglická slova pomocí programu Kutools pro Excel

Pokud chcete převést čísla na slova v listu aplikace Excel, existuje užitečný nástroj - Čísla na slova aplikace Kutools pro Excel, která umí převádět čísla na anglická nebo čínská slova nebo převádět čísla na anglickou měnu nebo čínskou měnu.

Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. 

Po instalace zdarma Kutools pro Excel, prosím, postupujte takto:

1. Vyberte buňky, na které chcete převést čísla na slova, a klikněte na Kutools > Obsah > Čísla na slova.
číslo dokumentu do slova 1

2. V rozbalovacím dialogovém okně zaškrtněte angličtina a Nepřevedeno na měnu možnosti.
číslo dokumentu do slova 1

3. cvaknutí Ok or Přihláška, vybraná čísla budou převedena na slova.

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!

🤖 Kutools AI asistent: Transformujte své psaní pomocí AI - Generovat obsah  /  Přepsat text  /  Shrnout dokumenty  /  Vyžádejte si informace na základě dokumentu, vše ve Wordu

📘 Mistrovství dokumentů: Rozdělit stránky  /  Sloučit dokumenty  /  Exportovat výběr v různých formátech (PDF/TXT/DOC/HTML...)  /  Dávkový převod do PDF  /  Exportujte stránky jako obrázky  /  Tisk více souborů najednou...

Úprava obsahu: Dávkové hledání a nahrazení přes více souborů  /  Změnit velikost všech obrázků  /  Transponujte řádky a sloupce tabulky  /  Převést tabulku na text...

🧹 Čištění bez námahy: Smést pryč Extra prostory  /  Sekce přestávky  /  Všechny záhlaví  /  Textová pole  /  Odkazy  / Další nástroje pro odstraňování naleznete na Odebrat skupinu...

Kreativní vložky: Vložit Tisíc separátorů  /  Zaškrtávací políčka  /  Tlačítka rádia  /  QR kód  /  čárový kód  /  Tabulka diagonálních čar  /  Titulek rovnice  /  Titulek obrázku  /  Titulek tabulky  /  Více obrázků  / Objevte více v Vložit skupinu...

???? Přesné výběry: Přesně Konkrétní stránky  /  Tabulky  /  Tvary  /  Nadpis odstavce  / Vylepšete navigaci pomocí vice Vyberte funkce...

Vylepšení hvězd: Přejděte na libovolné místo  /  Automatické vkládání opakujícího se textu  /  Přepínání mezi okny dokumentu  /  11 Konverzní nástroje...

???? Chcete si tyto funkce vyzkoušet? Kutools for Word nabízí a Denní zkušební doba 60, bez omezení! ????
Stažení zdarma     Více     Kup nyní
 
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations