如何在 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 后，按以下步骤操作：

1. 如果需要为整个文档中的所有数字添加千位分隔符，无需选择任何数据，只需点击 Kutools> 插入> 添加千位分隔符 即可。

   

2. 在弹出对话框询问是否将该功能应用于整个文档时，请点击是。

   

3. 现在，所有数字都已成功添加千位分隔符。

   

---

演示：在 Word 文档数字中添加千位分隔符