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

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

Word文書内の数字に千位区切りを追加するにはどうすればよいですか？

Author Sun Last modified

Word文書内の数字に千位区切りを追加すると、特に大きな数値を扱う場合に可読性が大幅に向上します。Microsoft Wordには千位区切りを追加する直接的な機能はありませんが、VBA（Visual Basic for Applications）やKutools for Wordのような便利なツールを使用することで効率的にこれを行う方法があります。

このチュートリアルでは、VBAとKutools for Wordの両方を使用して、Word文書内の数字に千位区切りを追加する手順を説明します。

VBAで千位区切りを追加する

Kutools for Wordで千位区切りを追加する good idea

VBAで千位区切りを追加する

大きな数字に千位区切りを挿入するのは面倒な作業です、特にこれを繰り返し行う必要がある場合です。VBAコードを使用することで、このプロセスを自動化でき、数字を選択してF5キーを押すだけで区切りを即座に追加できます。

  1. 千位区切りを追加したい数字を選択し、Alt + F11を押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。
  2. クリック 挿入 > モジュール次に、次のコードをコピーして モジュール エディタに貼り付けます。 
    Sub InsertThousandSeparators()
    Dim selectedText As String
    Dim formattedText As String
    Dim decimalPos As Integer
    Dim wholePart As String
    Dim decimalPart As String
    Dim temp As String
    Dim i As Integer
    Dim charCount As Integer
    Dim trailingSpace As String
    Dim trailingParagraphMark As String
    
    If Selection.Type <> wdSelectionIP Then
        selectedText = Selection.Text
        trailingSpace = ""
        trailingParagraphMark = ""
        
        If Right(selectedText, 1) = " " Then
            trailingSpace = " "
            selectedText = Trim(selectedText)
        End If
        
        If Right(selectedText, 1) = Chr(13) Then
            trailingParagraphMark = Chr(13)
            selectedText = Left(selectedText, Len(selectedText) - 1)
        End If
        
        If IsNumeric(selectedText) Then
            decimalPos = InStr(1, selectedText, ".")
            
            If decimalPos > 0 Then
                wholePart = Left(selectedText, decimalPos - 1)
                decimalPart = Mid(selectedText, decimalPos + 1)
            Else
                wholePart = selectedText
                decimalPart = ""
            End If
            
            wholePart = Replace(wholePart, ",", "")
            
            temp = ""
            charCount = 0
            
            For i = Len(wholePart) To 1 Step -1
                temp = Mid(wholePart, i, 1) & temp
                charCount = charCount + 1
                
                If charCount Mod 3 = 0 And i > 1 Then
                    temp = "," & temp
                End If
            Next i
            
            wholePart = temp
            
            If decimalPart <> "" Then
                formattedText = wholePart & "." & decimalPart
            Else
                formattedText = wholePart
            End If
            
            Selection.Text = formattedText & trailingSpace & trailingParagraphMark
        Else
            MsgBox "Please select a valid number."
        End If
    Else
        MsgBox "Please select a number first."
    End If
End Sub
  3. F5キーを押すと、選択した数字に千位区切りが追加されます。

    Thousand separators are inserted into the selected number

  4. 別の数字に区切りを追加するには、新しい数字を選択してからモジュールウィンドウに戻り、再度F5キーを押します。

Kutools for Wordで千位区切りを追加する

選択範囲またはWord文書全体の複数の数字に区切りを挿入したい場合、Kutools for Wordの「千位区切りを追加」機能を使えば、数回のクリックでこの作業を解決できます。

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

Kutools for Wordをインストール後、以下の手順に従ってください：

  1. 文書全体のすべての数字に千位区切りを追加するには、データを選択せず、Kutools > 挿入 > 千位区切りを追加 をクリックします。
    Add Thousand Separator option on the Kutools tab on the ribbon
  2. ダイアログが表示され、この機能を文書全体に適用するかどうか尋ねられますので、「はい」をクリックします。
    Confirmation dialog saying 'Do you want to add thousand separators to all numbers in the whole document?'
  3. これで、すべての数字に千位区切りが挿入されました。
    Thousand separators are inserted into all numbers

注意：

  • 特定の選択範囲内の数字に千位区切りを追加したい場合は、まずその部分を選択してから、Kutools > 挿入 > 千位区切りを追加 をクリックします。
    Thousand separators are inserted into numbers in the selected range
  • 千位区切りを削除するには、Kutools > 削除 > 選択範囲のすべての千単位区切りを削除 をクリックします。
    Remove Thousand Separators option on the Kutools tab on the ribbon

デモ：Word文書内の数字に千位区切りを追加する

このビデオでKutools for WordからKutools / Kutools Plusタブを発見してください。100+ の機能と永久に無料のAIユーティリティをお楽しみください。今すぐダウンロード！

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

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の詳細はこちら