Word 文書で数値を単語に変換するには、どうすればよいですか？
この記事では、Word 文書内の数値を英単語に変換する方法をご紹介します。ぜひ最後までご覧ください！
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 Sub3。F5キーを押してコードを実行すると、数値が単語に変換されます。
注：このコードは一度に1 つの数値にのみ対応します。
Kutools for Excel を使用して数値を英単語に変換する
Excel シートで数値を単語に変換したい場合は、便利なツールである単語に変換する機能を備えたKutools for Excel がご利用いただけます。これにより、数値を英語または中国語の単語に、あるいは英語または中国語の通貨形式に簡単に変換できます。
Kutools for Excel を無料でインストールした後、以下の手順に従ってください。
1。変換したい単語を含むセルを選択し、「Kutools>コンテンツ>単語に変換する」をクリックします。
2。表示されたダイアログボックスで、「英語」と「通貨単位に変換しない」のオプションをチェックしてください。
3。「OK」または「適用」をクリックすると、選択した数値が単語に変換されます。
最高のオフィス生産性ツール
Kutools for Word– 300 以上の卓越した機能で、Word 体験をさらにレベルアップ！100 の注目の機能！
🤖KUTOOLS AI の機能：AI アシスタント／リアルタイムアシスタント／スーパーポリッシュ（書式を保持）／スーパートランスレート（書式を保持）／AI 編集／AI 校正…
📘ドキュメントマスタリー：ページ分割／文書の結合／選択範囲をさまざまな形式でエクスポート（PDF/TXT/DOC/HTML など）／一括 PDF 変換…
✏コンテンツ編集：複数ファイルにわたって一括検索と置換／すべての画像をリサイズ／表の転置行と列／表をテキストに変換…
🧹手間いらずのクリーンアップ：余分なスペースを一掃／セクション区切り／テキストボックス／ハイパーリンク／その他の削除ツールについては、削除グループをご覧ください…
➕クリエイティブ挿入：以下を挿入桁区切り記号／チェックボックス／ラジオボタン／QR コード／バーコード／複数の画像／詳細は挿入グループで…
🔍精密選択：特定のページ／表／図形／見出し段落／ナビゲーションを強化するにはその他の選択機能を活用…
⭐注目の拡張機能：任意の場所に移動／繰り返しテキストを自動挿入／ドキュメントWindows 間を切り替え／11 変換ツール…
🌍40 以上の言語をサポート：Kutools を好みの言語でお使いいただけます！英語、スペイン語、ドイツ語、フランス語、中国語など、40 以上の言語に対応しています。
Office Tab– Office にタブ付きインターフェースを導入し、作業を大幅に簡単に
- Word、Excel、PowerPoint、Publisher、Access、Visio、Project でタブを使った編集・閲覧機能を有効にします。
- 複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
- 日々の生産性を50％も向上させ、毎日数百回のマウスクリックをカットします！
✨ Kutools for Office – 1 回のインストールで、5 つの強力なツールがすぐに使える！
含まれるもの：Office Tab Pro・Kutools for Excel・Kutools for Outlook・Kutools for Word・Kutools for PowerPoint
📦 1 つのスイートですべての5 ツールを入手｜🔗 Microsoft Office とシームレスに連携｜⚡ 保存時間して、すぐに生産性を向上
最高のオフィス生産性ツール
Kutools for Word– Word 向けの100+ツール
- 🤖KUTOOLS AI の機能：AI アシスタント／リアルタイムアシスタント／スーパーポリッシュ／スーパートランスレート／AI 編集／AI 校正
- 📘ドキュメントマスタリー：ページ分割／文書の結合／一括 PDF 変換
- ✏コンテンツ編集：一括検索と置換／すべての画像をリサイズ
- 🧹手間いらずのクリーンアップ：余分なスペースを削除／セクション区切りを削除
- ➕クリエイティブ挿入：桁区切り記号を挿入／チェックボックスを挿入／QR コードを作成
- 🌍40 以上の言語をサポート：Kutools はあなたの言語に対応しています！40 以上の言語をサポート！