ในบทความของวันนี้เราจะแสดงวิธีที่ชาญฉลาด 2 วิธีในการจัดเรียงคอลัมน์ของข้อความตามความยาวใน Word ของคุณ
มีหลายวิธีในการจัดเรียงคอลัมน์ของข้อความหรือตัวเลขในตาราง แต่คุณเคยคิดเกี่ยวกับการจัดเรียงคอลัมน์ของข้อความตามความยาวหรือไม่? ในกรณีนี้เค้าโครงเอกสารของคุณจะชัดเจนและง่ายต่อการอ่านมากขึ้น
อย่างไรก็ตามไม่มีวิธีโดยตรงใน 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
หมายเหตุ:
หากตารางของคุณไม่มีแถวส่วนหัวคุณต้องแก้ไขบรรทัดรหัสต่อไปนี้:
Selection.Sort ExcludeHeader:=True
แทนที่“ True” ด้วย“ False”
- จากนั้นคลิก“ Run”
- จากนั้นในช่องแรกเปิดให้ป้อนหมายเลขคอลัมน์ของ tarรับคอลัมน์เช่น“ 2” สำหรับคอลัมน์ที่สอง
- คลิก "OK"
- ในช่องที่สองให้ป้อนตัวเลขเพื่อระบุกฎการเรียงลำดับ “ 0” หมายถึงการเรียงลำดับจากน้อยไปมาก“ 1” โดยมากไปหาน้อย
- ในทำนองเดียวกันคลิก“ ตกลง”
ตรวจสอบผล:
วิธีที่ 2: จัดเรียงใน Excel
- ขั้นแรกเลือกตารางใน Word แล้วกด“ Ctrl + C” เพื่อคัดลอก
- จากนั้นเปิด Excel แล้ววางโดยกด“ Ctrl + V” ตอนนี้ถ้าตารางของคุณไม่มีแถวส่วนหัวให้วางตารางในเซลล์ A2
- จากนั้นคลิกที่ตัวอักษรประจำคอลัมน์ ตัวอย่างเช่นสมมติว่าคอลัมน์ C คือไฟล์ tarรับคอลัมน์ คุณจะเห็นคอลัมน์ผลรวมในการเลือก
- คลิกขวาถัดไปแล้วเลือก“ แทรก”
- จะมีคอลัมน์ใหม่ก่อนคอลัมน์ C วางตำแหน่งเคอร์เซอร์ที่เซลล์ที่สองของคอลัมน์ใหม่
- ป้อน“ = LEN (C2)” ในเซลล์ B2 อย่าลืมแทนที่“ C” ด้วยตัวจริง
- จากนั้นวางเคอร์เซอร์ที่มุมขวาลงของเซลล์ B2 จนกว่าจะเปลี่ยนเป็นกากบาท
- ตอนนี้ดับเบิลคลิก คุณจะเห็นคอลัมน์ใหม่ที่เต็มไปด้วยตัวเลข นี่คือจำนวนอักขระสำหรับข้อความในคอลัมน์ C
- ป้อนสิ่งที่คุณต้องการในเซลล์ B1 เพียงแค่อย่าปล่อยว่างไว้
- วางเคอร์เซอร์ในเซลล์ใดก็ได้ในคอลัมน์ B ที่มีตัวเลข
- ไปที่คลิกแท็บ“ หน้าแรก” แล้วคลิก“ จัดเรียงและกรอง”
- ในเมนูแบบเลื่อนลงเลือก "เรียงลำดับจากน้อยที่สุดไปหามากที่สุด" หรือ "เรียงลำดับจากมากที่สุดไปหาน้อยที่สุด"
- สุดท้ายเลือกคอลัมน์ที่เพิ่งแทรกแล้วคลิกขวาเพื่อเลือก "ลบ" และวางตารางกลับไปที่เอกสาร Word
ซ่อมแซมเอกสารที่เสียหาย
คุณเชื่อว่าเอกสารของคุณที่เก็บไว้ในคอมพิวเตอร์นั้นปลอดภัยหรือไม่? แม้ว่าคุณจะสามารถป้องกันคอมพิวเตอร์ของคุณจากการโจมตีได้ ยังมีความเป็นไปได้ที่จะมีเอกสารลost. ดังนั้นโปรดทราบว่าไฟล์ของคุณอาจไม่ปลอดภัยอย่างสมบูรณ์ ดังนั้นรับไฟล์ การกู้คืน docx เครื่องมือล่วงหน้าน่าจะเป็นทางเลือกที่ดี
บทนำผู้เขียน:
Vera Chen เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ xls ที่เสียหาย และ pdf ซ่อมแซมผลิตภัณฑ์ซอฟต์แวร์ ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.