2 pametna načina da sortirate kolonu tekstova po dužini u vašoj riječi

U današnjem članku ćemo vam pokazati 2 pametna načina da sortirate kolonu tekstova po dužini u Wordu.

Postoji nekoliko načina da sortirate kolonu tekstova ili brojeva u tabeli. Ali, da li ste ikada razmišljali o sortiranju kolone tekstova po dužini? U tom slučaju, izgled vašeg dokumenta će biti jasniji i lakši za čitanje.

Međutim, ne postoji direktan način u Wordu da sortiramo ovo pravilo. Stoga moramo tražiti rješenja za rješavanje problema.

Metoda 1: Koristite Word VBA

Na primjer, recimo da imamo donju tabelu:

1. Prvo i osnovnoost, u Wordu pritisnite “Alt+ F11” da pokrenete VBA editor.
2. Idite da kreirate novi modul tako što ćete kliknuti na “Normalno” u lijevoj koloni.
3. Zatim kliknite karticu "Umetni" i odaberite "Modul" na padajućem izborniku.
4. Zatim dvaput kliknite na modul da ga otvorite i tamo zalijepite sljedeći makro:

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

Bilješka:

Ako vaša tabela ne sadrži red zaglavlja, onda morate promijeniti sljedeći red koda:

Selection.Sort ExcludeHeader:=True

Zamijenite “Tačno” sa “Netačno”.

5. Zatim kliknite na “Run”.
6. Zatim u prvom otvorenom polju unesite broj kolone tardobiti kolonu, kao što je "2" za drugu kolonu.
7. Kliknite na "OK".
8. U drugi okvir unesite broj da biste odredili pravilo sortiranja. “0” predstavlja sortiranje po rastućem, “1” po opadajućem.
9. Slično, kliknite na “OK”.

Provjerite efekat:

Metoda 2: Sortiranje u Excel-u

1. Prvo odaberite tablicu u Wordu i pritisnite “Ctrl+ C” da je kopirate.
2. Zatim otvorite Excel i zalijepite ga pritiskom na “Ctrl+ V”. Sada ako vaša tabela nema red zaglavlja, zalijepite tabelu u ćeliju A2.
3. Zatim kliknite na slovo kolone u koloni. Na primjer, recimo da je stupac C target column. Vidjet ćete kolonu ukupnog broja u odabiru.
4. Zatim kliknite desnim tasterom miša i odaberite „Insert“.
5. Bit će nova kolona prije kolone C. Postavite kursor na drugu ćeliju nove kolone.
6. Unesite “=LEN(C2)” u ćeliju B2. Ne zaboravite zamijeniti "C" stvarnim.
7. Zatim postavite kursor u desni donji ugao ćelije B2 dok se ne promijeni u križ.
8. Sada dvaput kliknite. Vidjet ćete novu kolonu ispunjenu brojevima. Ovo je broj znakova za tekstove u koloni C.
9. Unesite sve što želite u ćeliju B1. Samo ne ostavljajte prazno.
10. Stavite kursor u bilo koju ćeliju u koloni B koja ima broj.
11. Idite na karticu "Početna" i kliknite na "Sort & Filter".
12. Na padajućem izborniku odaberite "Sortiraj od najmanjeg do najvećeg" ili "Sortiraj od najvećeg do najmanjeg".
13. Na kraju, odaberite novo umetnutu kolonu i kliknite desnim klikom da odaberete "Izbriši". I zalijepite tabelu nazad u Word dokument.

Popravite oštećene dokumente

Vjerujete li da su vaši dokumenti pohranjeni na računarima sigurni? Čak i vi možete zaštititi svoj računar od napada. Još uvijek postoji mogućnost posjedovanja dokumenata lost. Zato imajte na umu da vaš fajl možda nije savršeno siguran. Shodno tome, dobiti a docx oporavak alat unaprijed bi bio dobar izbor.

Uvod za autora:

Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oštećen xls i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com