试题顺号

tangqiang57

有没有能帮助做一段顺题号的代码，把每道大题下面的题目都按照1. 2. 3. 4.5.的顺序进行编号！

ming0018

占个2楼，坐等被骂！
      三无产品，无能为力！

413191246se

1. Sub test()
   
2. '预处理
   
3.     Dim i As Paragraph, r As Range, n&
   
4.     With ActiveDocument.Content.Find
   
5.         .Execute "^13", , , 0, , , , , , "^p", 2
   
6.         .Execute "^11", , , 0, , , , , , "^p", 2
   
7.         .Parent.ListFormat.ConvertNumbersToText
   
8.     End With
   
9.     With Selection
   
10.         .WholeStory
    
11.         .ClearFormatting
    
12.         CommandBars.FindControl(ID:=122).Execute
    
13.         CommandBars.FindControl(ID:=123).Execute
    
14.         With .Font
    
15.             .Kerning = 0
    
16.             .DisableCharacterSpaceGrid = True
    
17.         End With
    
18.         With .ParagraphFormat
    
19.             .AutoAdjustRightIndent = False
    
20.             .DisableLineHeightGrid = True
    
21.         End With
    
22.         Set r = .Range
    
23.         For Each i In r.Paragraphs
    
24.             If Asc(i.Range) = 13 Then i.Range.Delete
    
25.         Next
    
26.     End With
    
27. '编号预处理
    
28.     With Selection
    
29.         .HomeKey unit:=wdStory
    
30.         With .Find
    
31.             .ClearFormatting
    
32.             .Replacement.Text = ""
    
33.             Do While .Execute("^13[一二三四五六七八九十0-9０-９\(（百零〇○Oo千]{1,}[、.．\)）]", , , 1, , , 1)
    
34.                 With .Parent
    
35.                     If .Information(12) Then .Tables(1).Range.Next.Select: .HomeKey 5
    
36.                     If .Text Like "?(*" Then .Characters(2).CharacterWidth = wdWidthFullWidth
    
37.                     If .Text Like "*)" Then .Characters.Last.CharacterWidth = wdWidthFullWidth
    
38.                     If .Text Like "*）" Then If .Next.Text = "、" Then .Next.Delete
    
39.                     If .Text Like "*[0-9０-９]*" Then
    
40.                         If .Text Like "?（*）" Then .MoveStart 1, 2: .MoveEnd 1, -1
    
41.                         If .Text Like "*[、.．]" Then .Characters.Last.Text = "．"
    
42.                         .Range.CharacterWidth = wdWidthHalfWidth
    
43.                     End If
    
44.                     .Collapse 0
    
45.                 End With
    
46.             Loop
    
47.         End With
    
48.     End With
    
49. '核心代码--颜色语句如果不喜欢，可以屏蔽/注释该行
    
50.     For Each i In ActiveDocument.Paragraphs
    
51.         If Not i.Range.Information(12) Then
    
52.             If i.Range Like "[一二三四五六七八九十百零〇○Oo千]*、*" Then
    
53.                 i.Range.Font.Color = wdColorRed '红色
    
54.                 n = 0
    
55.             ElseIf i.Range Like "#．*" Or i.Range Like "##．*" Or i.Range Like "###．*" Or i.Range Like "####．*" Then
    
56.                 i.Range.Font.Color = wdColorBlue '蓝色
    
57.                 n = n + 1
    
58.                 ActiveDocument.Range(Start:=i.Range.Characters(1).Start, End:=i.Range.Characters(InStr(i.Range, "．")).End - 1).Text = n
    
59.             End If
    
60.         End If
    
61.     Next
    
62.     Selection.HomeKey 6
    
63. End Sub

复制代码

tangqiang57

413191246se 发表于 2018-7-3 15:43

收到，自己修订后可以使用