단어의 길이별로 텍스트 열을 정렬하는 2 가지 현명한 방법

워드 솔루션 2025 년 9 월 28 일

오늘 기사에서는 Word에서 텍스트 열을 길이별로 정렬하는 2가지 스마트한 방법을 보여줍니다.

테이블에서 텍스트 또는 숫자 열을 정렬하는 방법에는 여러 가지가 있습니다. 그러나 텍스트 열을 길이별로 정렬하는 것에 대해 생각해 본 적이 있습니까? 이 경우 문서 레이아웃이 더 명확하고 읽기 쉽습니다.

그러나 Word에는 이 규칙에서 정렬할 수 있는 직접적인 방법이 없습니다. 따라서 문제를 해결하기 위한 해결 방법을 찾아야 합니다.

방법 1 : Word VBA 사용

예를 들어 아래와 같은 테이블이 있다고 합시다.

첫 번째와 포름ost, Word에서 "Alt+ F11"을 눌러 VBA 편집기를 트리거합니다.
왼쪽 열에서 "일반"을 클릭하여 새 모듈 만들기로 이동합니다.
그런 다음 "삽입" 탭을 클릭하고 드롭다운 메뉴에서 "모듈"을 선택합니다.
그런 다음 모듈을 두 번 클릭하여 열고 다음 매크로를 붙여넣습니다.

Sub SortByWordLength()
  Dim objTable As Table
  Dim objColumnCell As Cell
  Dim objColumnCellRange As Range
  Dim objNewColumnCellRange As Range
  Dim nRowNumber As Integer
  Dim nColumnNumber As Integer
  Dim strWordLenth As String
  Dim nSortOrder As Integer
  Dim nCurrentTableIndex As Integer
  Dim nTableColumnsInCurrentTable As Integer
 
  nCurrentTableIndex = ActiveDocument.Range(0, Selection.Tables(1).Range.End).Tables.Count
  nTableColumns = ActiveDocument.Tables(nCurrentTableIndex).Columns.Count

  nColumnNumber = InputBox("Enter the column number you want to sort", "Column Number", "For example:2")
 
  If nColumnNumber > 0 And nColumnNumber <= nTableColumns Then
    nSortOrder = InputBox("Choose the sort order:" & vbNewLine & "If you want to sort by descending, click 1" & vbNewLine & "If you want to sort by ascending, click 0", "Sort Order", "For example:1")

    If nSortOrder = 1 Or nSortOrder = 0 Then
      '  Add a new column to put the word length of the specified column. 
      Set objTable = ActiveDocument.Tables(nCurrentTableIndex)
      objTable.Columns.Add BeforeColumn:=objTable.Columns(nColumnNumber)
      nRowNumber = 1

      For Each objColumnCell In objTable.Columns(nColumnNumber + 1).Cells
        Set objColumnCellRange = objColumnCell.Range
        objColumnCellRange.MoveEnd Unit:=wdCharacter, Count:=-1
        Set objNewColumnCellRange = objTable.Cell(nRowNumber, nColumnNumber).Range
        objNewColumnCellRange.MoveEnd Unit:=wdCharacter, Count:=-1
 
        strWordLenth = Len(objColumnCellRange.Text)
 
        objNewColumnCellRange.InsertAfter (strWordLenth)
 
        nRowNumber = nRowNumber + 1
      Next objColumnCell
 
      objTable.Select
 
      '  Sort by the word length. 
      Selection.Sort ExcludeHeader:=True, FieldNumber:="Column " & nColumnNumber, SortFieldType:= _
        wdSortFieldNumeric, SortOrder:=nSortOrder, FieldNumber2:="", _
        SortFieldType2:=wdSortFieldAlphanumeric, SortOrder2:=wdSortOrderAscending _
      ,  FieldNumber3:="", SortFieldType3:=wdSortFieldAlphanumeric, SortOrder3:= _
        wdSortOrderAscending, Separator:=wdSortSeparateByCommas, SortColumn:= _
        False, CaseSensitive:=False, LanguageID:=wdEnglishUS, SubFieldNumber:= _
        "Paragraphs", SubFieldNumber2:="Paragraphs", SubFieldNumber3:="Paragraphs"
 
      objTable.Columns(nColumnNumber).Delete
 
    Else
      MsgBox ("Invalid sort type, please try again")
    End If
  Else
    MsgBox ("Invalid column number, please try again")
  End If
End Sub

주의 사항:

테이블에 헤더 행이 없으면 다음 코드 행을 변경해야 합니다.