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 문서의 숫자에 천 단위 구분 기호 추가 적용하기