Jak przekonwertować liczbę na słowa w dokumencie programu Word?

Ten artykuł dotyczy metody konwersji liczb na angielskie słowa w dokumencie programu Word, jeśli jesteś zainteresowany, przejdź do przeglądania szczegółów.

Konwertuj liczbę na angielskie słowa za pomocą VBA

Konwertuj liczbę na angielskie słowa w programie Excel za pomocą Kutools for Excel

Konwertuj liczbę na angielskie słowa za pomocą VBA

1. Wybierz liczbę, którą chcesz przekonwertować na słowa, naciśnij Alt + F11 klucze do otwarcia Microsoft Visual Basic for Applications okno.

2. kliknij wstawka > Modułi skopiuj poniższe kody i wklej je do pliku Moduł skrypt.

VBA: Konwertuj liczbę na słowa

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. naciśnij F5 klucz do uruchomienia kodu, teraz liczba została przekonwertowana na słowa.

Note： Za każdym razem kod działa tylko pod jednym numerem.

Konwertuj liczbę na angielskie słowa za pomocą Kutools for Excel

Jeśli chcesz przekonwertować liczby na słowa w arkuszu Excela, jest poręczne narzędzie - Liczby na słowa Kutools dla programu Excel, który może konwertować liczby na angielskie lub chińskie słowa lub konwertować liczby na angielską walutę lub chińską walutę.

Po bezpłatna instalacja Kutools dla programu Excel, wykonaj poniższe czynności:

1. Zaznacz komórki, które chcesz przekonwertować na słowa, a następnie kliknij Kutools > Treść > Liczby na słowa.

2. W wyświetlanym oknie dialogowym zaznacz Angielski i Nie przeliczono na walutę opcje.

3. kliknij Ok or Aplikuj, wybrane liczby zostaną przekonwertowane na słowa.

Najlepsze narzędzia biurowe

Kutools dla Worda - Podnieś swoje doświadczenie ze słowami dzięki Over 100 Niezwykłe funkcje!

🤖 Kutools Asystent AI: Zmień swoje pisanie dzięki AI - Generuj zawartość  /  Przepisz tekst  /  Podsumowanie dokumentów  /  Zapytaj o informacje na podstawie Dokumentu, wszystko w programie Word

📘 Znajomość dokumentów: Podziel strony  /  Scal dokumenty  /  Eksportuj zaznaczenie w różnych formatach (PDF/TXT/DOC/HTML...)  /  Wsadowa konwersja do formatu PDF  /  Eksportuj strony jako obrazy  /  Drukuj wiele plików jednocześnie...

✏ Edycja treści: Znajdź i zamień partii w wielu plikach  /  Zmień rozmiar wszystkich zdjęć  /  Transponuj wiersze i kolumny tabeli  /  Konwertuj tabelę na tekst...

🧹 Łatwe czyszczenie: Wymień Dodatkowe przestrzenie  /  Podziały sekcji  /  Wszystkie nagłówki  /  Pola tekstowe  /  Hiperłącza  / Więcej narzędzi do usuwania znajdziesz na naszej stronie Usuń grupę...

➕ Kreatywne wstawki: Wstawić Tysiące separatorów  /  Pola wyboru  /  Przyciski Radio  /  Kod QR  /  kod kreskowy  /  Tabela linii ukośnych  /  Podpis równania  /  Tytuł Zdjęcia  /  Podpis tabeli  /  Wiele zdjęć  / Odkryj więcej w Wstaw grupę...

🔍 Precyzyjne wybory: Punktowy konkretne strony  /  stoły  /  kształty  /  nagłówki akapitów  / Ulepsz nawigację za pomocą jeszcze Wybierz funkcje...

⭐ Ulepszenia gwiazd: Nawiguj szybko do dowolnej lokalizacji  /  automatyczne wstawianie powtarzającego się tekstu  /  płynnie przełączaj się pomiędzy oknami dokumentów  /  11 Narzędzia konwersji...

???? Chcesz wypróbować te funkcje? Kutools dla Word oferuje Bezpłatna wersja próbna 60-day, bez ograniczeń! 🚀

Darmowe pobieranie     Czytaj więcej     Kup teraz