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

Author: Sun Last Modified: 2025-05-23

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

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

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

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

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

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

千位区切りを追加したい数字を選択し、Alt + F11を押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

クリック挿入 > モジュール次に、次のコードをコピーして モジュール エディタに貼り付けます。

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