在 Word 中批量轉換小寫金額轉大寫（英文與中文）

需要 在 Word 中將數字轉換為貨幣文字——以便在發票、合約或支票中以文字形式顯示金額？您並不孤單！Word 並未提供簡易的內建功能來批量將金額轉為文字，尤其當文件包含大量數字時，更顯棘手。

以下是兩種可靠的方法：（1）Excel「自動化」工作流程（使用 VBA 產生貨幣文字，再複製貼上至 Word——設定較繁瑣且速度較慢），以及 （2）更快捷的 Word 幾鍵操作法，透過 Kutools for Word 實現（當您希望留在 Word 中並一次轉換多筆金額時最為理想）。

💡 快速導覽：

• 「貨幣文字」是什麼意思（附範例）
• 方法 1——在 Excel 中：使用 VBA 將數字轉換為貨幣文字，再複製貼上至 Word
• 方法 2——在 Word 中：一鍵使用 Kutools for Word 將數字轉換為貨幣文字
  • 將數字批量轉換為英文貨幣文字
  • 將數字批量轉換為中文貨幣文字
• Excel 與 Kutools 功能比較
• 疑難排解
• 常見問題

「貨幣文字」是什麼意思（附範例）

「貨幣文字」是指將數字金額轉換為拼寫格式，例如：1234.56 → 「壹仟貳佰參拾肆美元伍拾陸美分」。此格式常見於合約、發票、支票、採購單及報銷文件中，確保金額清晰無誤，不容篡改！

方法 1 — 在 Excel 中：使用 VBA 轉換為貨幣文字，再複製貼上至 Word

當您的金額已存在於試算表中，只需在 Excel 中生成貨幣文字，並於數秒內 複製到 Word，此工作流程便極為實用！

步驟 1 — 準備您的 Excel 表格

1. 在 Excel 中建立如下表格：金額（數字）與金額文字（待產生）。
2. 請確保金額為純數字格式（非文字）。如有需要，請先將文字轉換為數值。
   

步驟 2 — 新增 VBA 函數（UDF）以轉換小寫金額轉大寫

1. 在 Excel 中按下 Alt + F11，即可開啟 VBA 編輯器！
2. 點選插入 > 模組。
3. 將下方的 VBA 程式碼貼上至模組中。
4. 將檔案儲存為 .xlsm（啟用巨集的活頁簿）。

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

步驟 3 — 向下填滿以批次轉換多個數字

1. 在您的金額文字欄位中輸入：=CurrencyWordsUSD(A2)（請依您的工作表調整儲存格參照）。
   
2. 向下填滿，即可轉換所有列。
   
3. （建議）選取金額文字欄位，並貼上為數值，即可鎖定結果！
   

步驟 4 — 將結果快速複製貼上至 Word

1. 在 Excel 中選取您所需的金額與金額文字儲存格，然後按下 Ctrl + C。
2. 在 Word 中，點選您要貼上結果的位置，然後按下 Ctrl + V。
   

方法 2 — 在 Word 中：一鍵使用 Kutools for Word 轉換為貨幣文字

若您希望採用最簡便的 Word 優先工作流程，Kutools for Word 提供兩個專用指令：數字轉英文貨幣文字與數字轉中文貨幣文字。只需單擊一次，即可將文件中的小寫金額立即轉換為大寫！

將數字批量轉換為英文貨幣文字

安裝完畢後 從官方網站下載並安裝 Kutools for Word，請執行下列操作：

1. 在 Word 中，選取包含您要轉換之數字的文字。

   提示：若未選取任何內容，可將此工具套用至整份文件。

2. 點選 Kutools > 插入 > 數字轉英文貨幣文字。
   

結果：Kutools 會立即將所選內容（或整個文件）中的數字轉換為英文貨幣文字。

將數字批量轉換為中文貨幣文字

安裝完畢後 從官方網站下載並安裝 Kutools for Word，請執行下列操作：

1. 在 Word 中，選取包含欲轉換為中文大寫金額之數字的文字。

   提示：若未選取任何內容，此工具將轉換整份文件中的數字。

2. 點選 Kutools > 插入 > 數字轉中文貨幣文字。
   

結果：Kutools 會立即將所選內容（或整份文件）中的數字轉換為中文貨幣文字。

Excel 與 Kutools 功能比較

總結：若追求最快速的 Word 優先工作流程，請使用 Kutools for Word，僅需幾次點擊，即可將多筆金額轉換為貨幣文字（適用於選取範圍或整份文件）。唯有當您已在 Excel 中作業且不介意額外設定時，才建議選擇 Excel VBA 方法。

疑難排解

常見問題