メインコンテンツへスキップ

Kutools for Office — 1つのスイート、5つのツールで、もっと多くのことを成し遂げましょう。

Word文書で数字を単語に変換するにはどうすればよいですか？

Author Sun Last modified

この記事では、Word文書内の数字を英単語に変換する方法について説明します。興味がある場合は、詳細をご覧ください。

VBAを使用して数字を英単語に変換する

Kutools for Excelを使用してExcelで数字を英単語に変換する

VBAを使用して数字を英単語に変換する

1. 変換したい数字を選択し、Alt + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

2. 「挿入」＞「モジュール」をクリックし、以下のコードをコピーしてモジュールスクリプトに貼り付けます。

VBA：数字を単語に変換

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. 実行するには F5 キーを押してコードを実行すると、数字が単語に変換されます。
Number converted to English words

注釈: このコードは一度に1つの数字に対してのみ動作します。

Kutools for Excelを使用して数字を英単語に変換する

Excelシート内で数字を単語に変換したい場合、Kutools for Excelの「Numbers to Words」機能という便利なツールがあります。これにより、数字を英単語や中国語の単語に変換したり、英語または中国語の通貨に変換することができます。

Kutools for Excelについて、AI 🤖を搭載し、300以上の便利な機能を提供して作業を簡素化します。

Kutools for Excelを無料でインストール した後、以下のように操作してください：

1. 数字を単語に変換したいセルを選択し、次にクリックします Kutools > テキスト > Numbers to Words.
Numbers to Words option on the Kutools tab on the Excel ribbon

2. 表示されるダイアログで、次のオプションをチェックします： 英語 および 通貨単位に変換しない オプション
Numbers to Words dialog box

3. 「OK」または「適用」をクリックすると、選択された数字が単語に変換されます。

最高のオフィス生産性ツール

Kutools for Word - 100以上の驚くべき機能でWordの操作体験を向上！

🤖 Kutools AI機能: AIアシスタント / リアルタイムアシスタント / スーパー ポリッシュ（書式維持）/ スーパー トランスレート（書式維持）/ AI編集 / AI校正...

📘 文書マスター: ページの分割 / 文書の結合 / 選択範囲を様々な書式（PDF/TXT/DOC/HTMLなど）でソリューションをエクスポート / 一括PDF変換...

✏ テキスト編集: 複数ファイルを対象に一括検索と置換 /すべての画像をリサイズ / 表の行全体と列を転置 / 表をテキストに変換...

🧹 簡単クリーン:余分なスペース / セクション区切り / テキストボックス / ハイパーリンクをすばやく削除 /さらに多くの削除ツールは「削除」グループでご利用いただけます...

➕ クリエイティブ挿入: 千の区切り文字を挿入 / チェックボックス / ラジオボタン / QRコード / バーコード / 複数の画像 / 詳細は「挿入」グループで発見...

🔍 高精度な選択: 特定のページや表、図形、見出し段落などをピンポイント選択 /さらに多くの 選択 機能でナビゲーションを強化...

⭐ スター強化: 任意の範囲へナビゲーション / 定型テキストの自動挿入 / 文書ウィンドウ間の切り替え /11 種の変換ツール...

🌍 40以上の言語に対応: Kutoolsはあなたの言語でお使いいただけます ― 英語、スペイン語、ドイツ語、フランス語、中国語など40言語以上に対応！

Kutools and Kutools Plus tabs on the Word Ribbon
👉これらの機能を試してみたいですか？今すぐKutools for Wordをダウンロード！🚀
 

✨ Kutools for Office –1回のインストールで5つのパワフルツールが使えます！

Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint を含む

📦5つのツール全てが1つのスイートに | 🔗 Microsoft Officeとシームレスに統合 | ⚡ 保存時間・生産性をすぐにアップ

最高のオフィス生産性ツール

Kutools for Word - 100+ のツールでWordをよりパワフルに

無料ダウンロード 今すぐ購入 Kutoolsの詳細はこちら