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

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

Author: Sun Last Modified: 2025-08-06

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 Features：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 Word - 100+ のWord用ツール

無料ダウンロード 今すぐ購入 Kutoolsについて詳しく見る