如何在Word文檔中為數字添加千位分隔符？

Author: Sun Last Modified: 2025-05-12

在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