喜欢玩VBA来练练手

zhanglei1371

桌面.rar (12.59 KB, 下载次数: 25)

2014-9-11 21:15 上传

点击文件名下载附件

附件里是一个杂乱的选择题选项，另个是处理好的样本，分为三种情况：
如果选项长度很短，五个加起来还没超过一行，那就单行分布；ABCDE
如果选项很长，两个选项肯定会超过一行，那就每个都占一行；
A
B
C
D
E
如果两个连起来没有超过一行，那就AB一行，CD一行，E单独一行；
制表位距离以自己看着美观和合理来搞。

对VBA有兴趣的可以练习下。
本人这段时间忙，实在没人有能力解决我会考虑给出解决方案.

pipiludaxian

标记下 等兄下手 好学习

zhanglei1371

看来对VBA感兴趣的人还是不多啊，本人就亲自解决吧:

1. Sub sadf()
   
2.     Application.ScreenUpdating = 0
   
3.     l = ActiveDocument.PageSetup.CharsLine
   
4.     For Each pa In ActiveDocument.Paragraphs
   
5.         If InStr(pa, "D．") Then
   
6.             pa.Range.Select:
   
7.             If Len(pa) > l * 2 Then  '长度超过两行就每个选项一行
   
8.                 Call A3
   
9.             ElseIf Len(pa) < l Then  '长度小于一行就所有选项一行
   
10.                 Call a1(l - Len(pa.Range))
    
11.             Else   '长度在两行内就AB一行，CD一行，E项单独一行
    
12.                 Call a2
    
13.             End If
    
14.         End If
    
15.     Next
    
16.     Application.ScreenUpdating = 1
    
17. End Sub
    
18. 
    
19. 
    
20. Sub a1(n)  '分1行
    
21.     s = Selection.End
    
22.     i = 1
    
23.     With Selection.Find
    
24.         .ClearFormatting
    
25.         .Text = "[ ]{1,}[B-E]．"
    
26.         .MatchWildcards = 1
    
27.         Do While .Execute
    
28.             If .Parent.End > s Then Exit Sub
    
29.             '        If a > 1 Then
    
30.             .Parent.End = .Parent.End - 2
    
31.             .Parent = Chr(9)
    
32.             La = Selection.End - Selection.Paragraphs(1).Range.Start + n * i / 4
    
33.             Selection.ParagraphFormat.TabStops.Add Position:=CentimetersToPoints(La * 15 / 39)
    
34.             .Parent.Collapse 0
    
35.             i = i + 1
    
36.         Loop
    
37.     End With
    
38. End Sub
    
39. Sub a2()  '分三行
    
40.     a = 1: i = 1
    
41.     s = Selection.End
    
42.     With Selection.Find
    
43.         .ClearFormatting
    
44.         .Text = "B．*C．"
    
45.         .MatchWildcards = 1
    
46.         If .Execute Then
    
47.             ac = Len(.Parent) - 2     'B项长度
    
48.             ac = (39 - ac)
    
49.             .Parent.Collapse 1
    
50.         End If
    
51.         .Text = "D．*E．"
    
52.         .MatchWildcards = 1
    
53.         If .Execute Then
    
54.             cd = Len(.Parent) - 2   'D项长度
    
55.             cd = (39 - cd)
    
56.             min = ac
    
57.             If min > cd Then min = cd - 7
    
58.             If min > 20 Then min = 20
    
59.             .Parent.HomeKey
    
60.         End If
    
61. 
    
62.         .Text = "[ ]{1,}[B-E]．"
    
63.         .MatchWildcards = 1
    
64.         Do While .Execute
    
65.             If .Parent.End > s Then Exit Sub
    
66.             .Parent.End = .Parent.End - 2
    
67.             If a / 2 = Int(a / 2) Then
    
68.                 .Parent = Chr(13)    '若是CE则加入回车
    
69.             Else
    
70.                 .Parent = Chr(9)  '若是BD项则加入tab
    
71.                 Selection.ParagraphFormat.TabStops.Add Position:=CentimetersToPoints(min * 15 / 39)
    
72.             End If
    
73.             a = a + 1
    
74.             .Parent.Collapse 0
    
75.             i = i + 1
    
76.         Loop
    
77.     End With
    
78. End Sub
    
79. Sub A3()    '分5行
    
80.     s = Selection.End
    
81.     a = 1
    
82.     With Selection.Find
    
83.         .ClearFormatting
    
84.         .Text = "[A-E]．"
    
85.         .MatchWildcards = 1
    
86.         Do While .Execute
    
87.             If .Parent.End > s Then Exit Sub
    
88.             If a > 1 Then
    
89.                 .Parent = Chr(13) & .Parent
    
90.                 .Parent.Collapse 0
    
91. 
    
92.             End If
    
93.             a = a + 1
    
94.         Loop
    
95.     End With
    
96. End Sub
    
97. 
    

复制代码

loquat

学习了，重点在几个表达式。加紧学习跟上脚步