如何在 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 文件中為數字添加千位分隔符