Word中如何根据句子的长短排序？

zzpsx

Word中如何句子的长短排序？.zip (12.79 KB, 下载次数: 7)

2020-6-9 08:45 上传

点击文件名下载附件

Word中如何根据句子的长短排序？

Excel中有个len函数，可以方便地根据长短排序，Word中怎么按照句子长短排序呢？

It was the right decision because it saved moneyand protected the earth.

I was a little nervous to tell him that I had failed the exam the third time.

After learningof his dog’s death, he stopped cooking at once.

The boy passedthe newspaper through the door and ran away.

At first, her husband argued that thefamily should stay together at theirhome.

When she came home, I already had all myclothes packed up in my bag.

Nobody knowswhen the terrible weather is going to end.

Find someone you trust and go and tell themwhat is happening to you.

Take a good look at yourself in the mirror and answer these questions.

This kind of small ants can live almost anywhere.

The weather makes a big difference in ourdaily lives.

Here’s a look at why the weather is an important part of our daily lives.

The rain brings new life and washes away the old things.

Natural plants would die and we’d be left with a desert of a world.

Did you know that the wind can blow away pollution and illness?

413191246se

1. Sub aaaa段落排序()
   
2.     Dim i As Paragraph
   
3.     For Each i In ActiveDocument.Paragraphs
   
4.         i.Range.InsertBefore Text:=i.Range.Characters.Count & vbTab
   
5.     Next
   
6. '
   
7.     Selection.WholeStory
   
8.     Selection.ConvertToTable Separator:=wdSeparateByTabs, NumColumns:=2, _
   
9.         NumRows:=15, AutoFitBehavior:=wdAutoFitFixed
   
10.     With Selection.Tables(1)
    
11.         If .Style <> "网格型" Then
    
12.             .Style = "网格型"
    
13.         End If
    
14.         .ApplyStyleHeadingRows = True
    
15.         .ApplyStyleLastRow = False
    
16.         .ApplyStyleFirstColumn = True
    
17.         .ApplyStyleLastColumn = False
    
18.         .ApplyStyleRowBands = True
    
19.         .ApplyStyleColumnBands = False
    
20.     End With
    
21.     Selection.Sort ExcludeHeader:=False, FieldNumber:="列 1", SortFieldType:= _
    
22.         wdSortFieldNumeric, SortOrder:=wdSortOrderAscending, FieldNumber2:="", _
    
23.         SortFieldType2:=wdSortFieldSyllable, SortOrder2:=wdSortOrderAscending, _
    
24.         FieldNumber3:="", SortFieldType3:=wdSortFieldSyllable, SortOrder3:= _
    
25.         wdSortOrderAscending, Separator:=wdSortSeparateByCommas, SortColumn:= _
    
26.         False, CaseSensitive:=False, LanguageID:=wdSimplifiedChinese, _
    
27.         SubFieldNumber:="段落数", SubFieldNumber2:="段落数", SubFieldNumber3:="段落数"
    
28.     ActiveWindow.ActivePane.VerticalPercentScrolled = 0
    
29.     Selection.HomeKey Unit:=wdStory
    
30. '
    
31.     With ActiveDocument.Tables(1)
    
32.         .Columns(1).Width = CentimetersToPoints(1)
    
33.         .Columns(2).Width = CentimetersToPoints(14)
    
34.     End With
    
35. End Sub

复制代码