У сьогоднішній статті ми покажемо вам 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».
- Далі натисніть «Виконати».
- Потім у першому відкритому полі введіть номер стовпця 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. Тому майте на увазі, що ваш файл може бути не зовсім безпечним. Отже, отримати a відновлення docx - - інструмент заздалегідь буде гарним вибором.
Вступ автора:
Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі пошкоджений XLS та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com