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

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

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 aplikovat, vybraná čísla budou převedena na slova.


Doporučené nástroje produktivity slov

 

Kutools pro Word - více než 100 pokročilých funkcí pro Word, ušetříte 50% času

  • Složité a opakované operace lze provádět jednorázově během několika sekund.
  • Vložte více obrázků do složek do dokumentu Word najednou.
  • Sloučte a zkombinujte více souborů Wordu napříč složkami do jednoho v požadovaném pořadí.
  • Rozdělte aktuální dokument na samostatné dokumenty podle záhlaví, zalomení sekce nebo jiných kritérií.
  • Převádějte soubory mezi Doc a Docx, Docx a PDF, kolekci nástrojů pro běžné převody a výběr atd. ...
Komentáře (0)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění