Convert Numbers to Currency Words in Word (Bulk) — English & Chinese

Need to convert number to currency words in Word—so amounts show up as spelled-out text for invoices, contracts, or checks? You’re not alone: Word doesn’t provide a simple built-in way to spell out money values in bulk, especially when a document contains many amounts.

Below are two reliable ways to get it done: (1) an Excel “auto” workflow (VBA to generate currency words, then copy-paste into Word—more setup, and slower), and (2) a faster, few-click Word method using Kutools for Word (best when you want to stay inside Word and convert multiple amounts at once).

💡 Quick Navigation:

• What “Currency Words” Means (with Examples)
• Method 1 — In Excel: Convert to Currency Words with VBA + Copy-paste into Word
• Method 2 — In Word: One Click to Convert to Currency Words with Kutools for Word
  • Convert numbers to English currency words (bulk)
  • Convert numbers to Chinese currency words (bulk)
• Excel vs Kutools Comparison
• Troubleshooting
• FAQ

What “Currency Words” Means (with Examples)

“Currency words” means converting numeric amounts into a spelled-out format, such as: 1234.56 → “One Thousand Two Hundred Thirty-Four Dollars and Fifty-Six Cents”. This is common in contracts, invoices, checks, purchase orders, and reimbursement documents.

Method 1 — In Excel: Convert to Currency Words with VBA + Copy-paste into Word

This workflow is useful when your amounts already live in a spreadsheet and you simply want the currency words generated in Excel, then copied into Word in seconds.

Step 1 — Prepare your Excel table

1. In Excel, create a table like this: Amount (numbers) and AmountInWords (to be generated).
2. Make sure amounts are clean numbers (not text). If needed, convert text to numbers first.
   

Step 2 — Add a VBA function (UDF) to convert numbers to currency words

1. In Excel, press Alt + F11 to open the VBA editor.
2. Click Insert > Module.
3. Paste the VBA code below into the module.
4. Save the file as .xlsm (macro-enabled workbook).

Option Explicit
'Updated by Extendoffice 2026/2/10
Public Function CurrencyWordsUSD(ByVal Amount As Double) As String
    Dim Dollars As Long
    Dim Cents As Long
    Dim sDollars As String
    Dim sCents As String

    If Amount < 0 Then
        CurrencyWordsUSD = "Minus " & CurrencyWordsUSD(Abs(Amount))
        Exit Function
    End If

    Dollars = Fix(Amount)
    Cents = Round((Amount - Dollars) * 100, 0)

    sDollars = NumberToWords(Dollars) & IIf(Dollars = 1, " Dollar", " Dollars")
    sCents = NumberToWords(Cents) & IIf(Cents = 1, " Cent", " Cents")

    If Cents = 0 Then
        CurrencyWordsUSD = sDollars
    Else
        CurrencyWordsUSD = sDollars & " and " & sCents
    End If
End Function

Private Function NumberToWords(ByVal n As Long) As String
    If n = 0 Then
        NumberToWords = "Zero"
        Exit Function
    End If

    NumberToWords = Trim_(ToWords(n))
End Function

Private Function ToWords(ByVal n As Long) As String
    Dim Units As Variant, Tens As Variant
    Units = Array("", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine", _
                  "Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")
    Tens = Array("", "", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")

    Select Case n
        Case 0 To 19
            ToWords = Units(n)
        Case 20 To 99
            ToWords = Tens(Int(n / 10)) & IIf(n Mod 10 > 0, "-" & Units(n Mod 10), "")
        Case 100 To 999
            ToWords = Units(Int(n / 100)) & " Hundred" & IIf(n Mod 100 > 0, " " & ToWords(n Mod 100), "")
        Case 1000 To 999999
            ToWords = ToWords(Int(n / 1000)) & " Thousand" & IIf(n Mod 1000 > 0, " " & ToWords(n Mod 1000), "")
        Case 1000000 To 999999999
            ToWords = ToWords(Int(n / 1000000)) & " Million" & IIf(n Mod 1000000 > 0, " " & ToWords(n Mod 1000000), "")
        Case Else
            ToWords = ToWords(Int(n / 1000000000)) & " Billion" & IIf(n Mod 1000000000 > 0, " " & ToWords(n Mod 1000000000), "")
    End Select
End Function

Private Function Trim_(ByVal s As String) As String
    Trim_ = Application.WorksheetFunction.Trim(s)
End Function

Step 3 — Fill down to convert multiple numbers (bulk)

1. In your AmountInWords column, enter: =CurrencyWordsUSD(A2) (adjust the cell reference to your sheet).
   
2. Fill down to convert all rows.
   
3. Optional (recommended): copy the AmountInWords column and paste Values to lock results.
   

Step 4 — Bring the results into Word (quick copy-paste)

1. In Excel, select the Amount and AmountInWords cells you need, then press Ctrl + C.
2. In Word, click where you want the results, then press Ctrl + V.
   

Method 2 — In Word: One Click to Convert to Currency Words with Kutools for Word

For the easiest Word-first workflow, Kutools for Word offers two dedicated commands: Numbers to English Currency Words and Numbers to Chinese Currency Words. With a single click, you can convert numbers to currency words directly inside your document.

Convert numbers to English currency words (bulk)

After downloading and installing Kutools for Word from the official website, do the following:

1. In Word, select the text that contains the numbers you want to convert.

   Tip: If you don’t select anything, you can apply the tool to the entire document.

2. Click Kutools > Insert > Numbers to English Currency Words.
   

Result: Kutools instantly replaces the numbers with English currency words in the selected content (or across the whole document).

Convert numbers to Chinese currency words (bulk)

After downloading and installing Kutools for Word from the official website, do the following:

1. In Word, select the text that contains the numbers you want to convert to Chinese currency words.

   Tip: If you don’t select anything, the tool will convert numbers in the entire document.

2. Click Kutools > Insert > Numbers to Chinese Currency Words.
   

Result: Kutools instantly replaces the numbers with Chinese currency words in the selected content (or across the whole document).

Excel vs Kutools Comparison

Summary: For the fastest Word-first workflow, use Kutools for Word to convert multiple amounts to currency words in a few clicks (selection or whole document). Choose Excel VBA only if you’re already working in Excel and don’t mind extra setup.

Troubleshooting

FAQ