Gå til hovedindhold

Hvordan konverteres nummer til ord i Word-dokument?

Forfatter: Sun Sidst ændret: 2020-09-08

Denne artikel taler om metoden til konvertering af numrene til engelske ord i Word-dokument. Fortsæt med at se detaljerne, hvis du er interesseret i.

Konverter nummer til engelske ord med VBA

Konverter antal til engelske ord i Excel med Kutools til Excel


Konverter nummer til engelske ord med VBA

1. Vælg det nummer, du vil konvertere til ord, og tryk på Alt + F11 taster for at åbne Microsoft Visual Basic til applikationer vindue.

2. klik indsatte > Moduler, og kopier nedenstående koder og indsæt dem i Moduler scripts.

VBA: Konverter nummer til ord

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. Trykke F5 nøgle til at køre koden, nu er nummeret konverteret til ord.
doc nummer til ord 1

Bemærk: Koden fungerer kun på et nummer hver gang.


Konverter nummer til engelske ord med Kutools til Excel

Hvis du vil konvertere tal til ord i Excel-ark, er der et praktisk værktøj - Tal til ord af Kutools til Excel, som kan konvertere tal til engelske eller kinesiske ord eller konvertere tal til engelsk valuta eller kinesisk valuta.

Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. 

Efter gratis installation Kutools til Excel, gør venligst som nedenfor:

1. Vælg de celler, du vil konvertere tal til ord, og klik derefter på Kutools > Indhold > Tal til ord.
doc nummer til ord 1

2. Kontroller i poppedialogen Engelsk og Ikke konverteret til valuta valgmuligheder.
doc nummer til ord 1

3. klik Ok or Indløs, konverteres de valgte tal til ord.

Bedste kontorproduktivitetsværktøjer

Kutools for Word - Forøg din Word-oplevelse med Over 100 Bemærkelsesværdige funktioner!

🤖 Kutools AI-assistent: Transformer din skrivning med AI - Generer indhold  /  Omskriv tekst  /  Opsummer dokumenter  /  Spørg for information baseret på Dokument, alt sammen i Word

📘 Dokumentbeherskelse: Opdelt sider  /  Flet dokumenter  /  Eksporter udvalg i forskellige formater (PDF/TXT/DOC/HTML...)  /  Batch Konverter til PDF  /  Eksporter sider som billeder  /  Udskriv flere filer på én gang...

Indholdsredigering: Batch Find og erstat på tværs af flere filer  /  Ændr størrelse på alle billeder  /  Transponer tabelrækker og kolonner  /  Konverter tabel til tekst...

🧹 Ubesværet rengøring: Fej væk Ekstra pladser  /  Afsnit bryder  /  Alle overskrifter  /  Tekstbokse  /  Hyperlinks  / For mere fjernelse af værktøjer, gå til Fjern gruppe...

Kreative indlæg: Indsæt Tusind adskillere  /  Afkrydsningsfelter  /  Radio knapper  /  QR kode  /  Stregkode  /  Diagonal linjebord  /  Ligningstekst  /  Billede Caption  /  Tabeltekst  /  Flere billeder  / Oplev mere i Indsæt gruppe...

???? Præcisionsvalg: Find ud af Specifikke sider  /  tabeller  /  Former  /  Overskriftsparagraffer  / Forbedre navigation med mere Vælg funktioner...

Stjerneforbedringer: Naviger til enhver placering  /  Auto-indsæt gentagen tekst  /  Skift mellem dokumentvinduer  /  11 Konverteringsværktøjer...

???? Vil du prøve disse funktioner? Kutools for Word tilbyder en 60-dages gratis prøveperiode, uden begrænsninger! 🚀
 
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