Word 文書内の数値に千位区切りを適用する方法は？

Word 文書内の数値に千位区切りを適用すると、特に大きな数値の可読性が大幅に向上します。Microsoft Word には千位区切りを直接追加する機能はありませんが、VBA（Visual Basic for Applications）やKutools for Word などの便利なツールを使えば、効率的に実現できます。

このチュートリアルでは、VBA とKutools for Word の両方を使って、Word 文書内の数値に千位区切りを適用する方法をご紹介します。

VBA による千位区切りを追加

Kutools for Word による千位区切りを追加

---

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キーを押すと、選択した数値に桁区切り記号が自動で追加されます。
4. 別の数値に区切り記号を追加するには、新しい数値を選択した後、標準モジュールウィンドウに戻って、再度 F5キーを押してください。

---

Kutools for Word による千位区切りを追加

選択範囲内またはWord 文書全体の複数の数値に区切り記号を挿入したい場合は、千位区切りを追加機能が搭載されたKutools for Wordを使えば、わずか数回のクリックでこの作業を完了できます。

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

1. ドキュメント全体のすべての数値に千位区切りを適用するには、データを選択せずに、次のようにクリックしてください。Kutools>挿入>千位区切りを追加。

   

2. 文書全体にこの機能を適用するかどうか確認するダイアログボックスが表示されたら、はいをクリックします。

   

3. これで、すべての数値に桁区切り記号が挿入されました。

   

---

デモ：Word 文書内の数値に千位区切りを追加を適用