2 inteligentné spôsoby triedenia stĺpca textov podľa dĺžky vo vašom slove

V dnešnom článku si ukážeme 2 inteligentné spôsoby triedenia stĺpca textov podľa dĺžky vo vašom Word.

Existuje niekoľko spôsobov, ako zoradiť stĺpec textov alebo čísel v tabuľke. Ale už ste niekedy uvažovali o triedení stĺpca textov podľa dĺžky? V takom prípade bude rozloženie dokumentu jasnejšie a ľahšie sa dá čítať.

V programe Word však neexistuje žiadny priamy spôsob triedenia tohto pravidla. Preto musíme hľadať riešenia, ako tento problém vyriešiť.

Metóda 1: Použite Word VBA

Povedzme napríklad, že máme tabuľku uvedenú nižšie:

1. V prvom radeost, v programe Word stlačte „Alt + F11“, aby ste spustili editor VBA.
2. Kliknutím na „Normálny“ v ľavom stĺpci prejdite na vytvorenie nového modulu.
3. Potom kliknite na kartu „Vložiť“ a v rozbaľovacej ponuke zvoľte možnosť „Modul“.
4. Ďalším dvojitým kliknutím na modul ho otvorte a vložte tam nasledujúce 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

Poznámky:

Ak vaša tabuľka neobsahuje žiadny riadok hlavičky, musíte zmeniť nasledujúci riadok kódu:

Selection.Sort ExcludeHeader:=True

Nahraďte „True“ výrazom „False“.

5. Ďalej kliknite na „Spustiť“.
6. Potom do prvého otvoreného poľa zadajte číslo stĺpca tarzískať stĺpec, napríklad „2“ pre druhý stĺpec.
7. Kliknite na tlačidlo "OK".
8. V druhom poli zadajte číslo a zadajte pravidlo triedenia. „0“ predstavuje zoradenie vzostupne, „1“ zostupné.
9. Podobne kliknite na „OK“.

Skontrolujte efekt:

Metóda 2: Zoradenie v programe Excel

1. Najskôr vyberte tabuľku v programe Word a skopírujte ju stlačením klávesov „Ctrl + C“.
2. Ďalej otvorte program Excel a vložte ho stlačením klávesov „Ctrl + V“. Ak vaša tabuľka nemá žiadny riadok hlavičky, vložte ju do bunky A2.
3. Potom kliknite na písmeno stĺpca stĺpca. Povedzme napríklad, že stĺpec C je tarzískať stĺpec. Vo výbere sa zobrazí stĺpec s celkovou sumou.
4. Ďalej kliknite pravým tlačidlom myši a vyberte možnosť „Vložiť“.
5. Pred stĺpcom C bude nový stĺpec. Umiestnite kurzor na druhú bunku nového stĺpca.
6. Do bunky B2 zadajte „= LEN (C2)“. Nezabudnite nahradiť „C“ skutočným.
7. Ďalej umiestnite kurzor do pravého dolného rohu bunky B2, kým sa nezmení na krížik.
8. Teraz dvakrát kliknite. Uvidíte nový stĺpec plný čísel. Toto je počet znakov pre texty v stĺpci C.
9. Do bunky B1 zadajte všetko, čo sa vám páči. Len to nenechajte prázdne.
10. Umiestnite kurzor do ľubovoľnej bunky v stĺpci B, ktorá má číslo.
11. Prejdite na kartu „Domov“ a kliknite na tlačidlo „Zoradiť a filtrovať“.
12. V rozbaľovacej ponuke zvoľte možnosť „Zoradiť od najmenšej po najväčšiu“ alebo „Zoradiť od najmenšej po najmenšiu“.
13. Nakoniec vyberte novo vložený stĺpec a kliknite pravým tlačidlom myši a vyberte príkaz Odstrániť. A vložte tabuľku späť do dokumentu Word.

Oprava poškodených dokumentov

Veríte tomu, že vaše dokumenty uložené v počítačoch sú bezpečné? Aj vy môžete chrániť počítač pred útokmi. Stále existuje možnosť mať dokumenty lost. Pamätajte teda, že váš súbor nemusí byť úplne bezpečný. Následne získajte a obnovenie docx nástroj vopred by bola dobrá voľba.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane poškodené xls a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S