Word で小文字の金額を大文字にを一括変換（英語＆中国語）

請求書、契約書、小切手などで金額を文字で表示する必要はありませんか？Word で数値を通貨単語に変換したいけれど、Word には多数の金額を一括で文字に変換する簡単な組み込み機能がなく、多くの方が同じ課題に直面しています。

以下に、この作業を確実に完了させる2 つの信頼できる方法をご紹介します：（1）Excel を使った「自動」ワークフロー（VBA で通貨単語を生成し、Word にコピーペースト — 設定が多く、やや時間がかかります）、および（2）より高速で数回のクリックで完了するWord 内での方法（Word 内で作業を続けながら、複数の金額を一度に変換したい場合に最適）です。

💡クイックナビゲーション：

• 「通貨単語」とは（例付き）
• 方法1 — Excel での手順：VBA を使用して通貨単語に変換し、Word にコピーペースト
• 方法2 — Word での手順：Kutools for Word を使用してワンクリックで通貨単語に変換
  • 数字を英語の通貨表記に一括変換
  • 数字を中国語の通貨表記に一括変換
• Excel とKutools の比較
• トラブルシューティング
• よくある質問（FAQ）

「通貨単語」とは（例付き）

「通貨単語」とは、数値で表された金額を次のように文字で綴った形式に変換することです。1234.56 → 「One Thousand Two Hundred Thirty-Four Dollars and Fifty-Six Cents（千二百三十四ドル五十六セント）」。この表現は、契約書・請求書・小切手・発注書・精算書類などにおいて頻繁に使用されます。

方法 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 に次の2 つの専用コマンドが用意されています。英語通貨単語への変換および中国語通貨単語への変換。ワンクリックで、ドキュメント内の小文字の金額を大文字に直接変換できます。

数字を英語の通貨表記に一括変換

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 をご利用ください。

トラブルシューティング

よくある質問（FAQ）