有难度的提取每个试题选择项到题前或题后

周星骋

考试加油站 发表于 2014-9-18 20:48
谢谢，确实水平很高，除了个别别括号的题（不是横线）没解决，全解决了，问一下，如答案加上括号，应当如 ...

然后，我也发现像第13题那样，填答案区域用括号的，没有做成。

楼主问的“如答案加上括号，应当如何替换”，
这个分两层意思，分别如下第一种情况、第二种情况。

第一种情况、空着欲填答案的地方为括号
这里以全角括号为例，而且，预留空白位置嘛，里边至少有一个半角空格吧。
那就将第2次的“查找内容”改一下，将 两根下划线 改成 全角左括号和半角空格，即：
(全角左括号和半角空格)(任意文字)勾勾(大写英文半角的单个字母)，代码如下：

1. (（ )(*)√([A-Z]{1})

复制代码

其它的不变。
这个应该可以在4次替换做完后，再做第5次替换。

第二种情况、空着欲填答案的地方为下划线、填完后为全角括号括起来的字母（中间也不要空格）
这种的话，要将第2次的“查找内容”和“替换为”都改一下。
“查找内容”：
(两根下划线)(一根或多根下划线)(任意文字)勾勾(大写英文半角的单个字母)，代码如下：

1. (__)(_{1,})(*)√([A-Z]{1})

复制代码

或者

1. (__)(_@)(*)√([A-Z]{1})

复制代码

“替换为”：
全角左括号、第4个表达式、全角右括号、第3个表达式、第4个表达式，代码如下：

1. （\4）\3\4

复制代码

如图：


这个也没考虑第13题的括号，所以也要增加第5次替换，即：
“查找内容”：
(全角左括号)(任意文字后跟全角右括号)(任意文字)勾勾(大写英文半角的单个字母)，代码如下：

1. (（ )(*）)(*)√([A-Z]{1})

复制代码

“替换为”：
全角左括号、第4个表达式、全角右括号、第3个表达式、第4个表达式，代码如下：

1. （\4）\3\4

复制代码

宏你自己录一下。
其中：
如果是第一种情况，你单独录“第5次替换”的宏，加了我在8楼的代码后面即可。

如果是第二种情况，你先录“第2次替换”的宏，将8楼“第2次”的换掉；再录“第5次替换”的宏，加到最后面。

考试加油站

周星骋 发表于 2014-9-19 10:18
然后，我也发现像第13题那样，填答案区域用括号的，没有做成。

楼主问的“如答案加上括号，应当如何替 ...

非常感谢，基本解决问题，余下手工做一下。

philips201110

努力学习                 

周星骋

考试加油站 发表于 2014-9-19 10:57
非常感谢，基本解决问题，余下手工做一下。

我将录制的宏完整的改了一遍。
做成两个，一个是答案填到下划线上的，另一个是答案填到圆括号里的。

顺便将全角下划线“＿”的两道题也做了。
只剩下以下几种情况没做：
1、备选答案前的字母未突出显示的，如第348、421题；
2、题中未留填答案处的，如第385、535题（这种情况，不敢用回车作为查找内容的开头，否则会大段文字被替换掉）；
3、备选答案前的字母是自动编号的，如第401题；
4、备选答案前的字母是全角的，如第500、813、818、910题（这几道备选答案是全角字母的，做出来的答案也是错的）。
这几种情况只有手工处理一下了，办法很简单，由于前边的替换给备选答案字母前加了勾勾“√”，只要是没替换成功的，勾勾还在，所以手工查找一下勾勾“√”就能找到如上说的那几种情况。

还有两种情况是比较危险的：
1、上面说了，题中未留填答案处，即：既没有下划线“____”、也没有括号“（  ）”，但题后肯定有个回车对吧。可是不敢从“回车”查到勾勾，即“(^13)(*)√([A-Z]{1})”，因为文中到处都是回车，若这样替换的话，势必将大段文字替换掉。
2、题中填答案处为括号的，一般不会中间不加空格“（）”，所以查找内容的起始字符串最好是括号后带个空格“（ ”，我在宏代码中写成括号后带两个空格“（  ”，这样安全点。否则，题目中很多地方也有括号，若不带空格查找替换，也势必将大段文字替换掉。加一个空格查找，错误机会就少一点；加两个空格查找，错误机会就更少了；如果空格加多了，恐怕填答案处就没这么多空格。不过，宁可找漏掉，也不要替换错了。

好了，下面是代码。

第一种情况，答案填到下划线上：

1. Sub 单选题答案填到下划线上()
   
2. ' 周星骋　编制
   
3. 
   
4. '第1次替换
   
5. Selection.Find.ClearFormatting '清除查找格式
   
6. Selection.Find.Highlight = True '查找：突出显示
   
7. Selection.Find.Replacement.ClearFormatting '清除替换格式
   
8. With Selection.Find
   
9. .Text = ""
   
10. .Replacement.Text = "√^&" '替换为“√^&”
    
11. .Forward = True
    
12. .Wrap = wdFindContinue '搜索全部
    
13. .Format = True
    
14. .MatchCase = False '区分大小写：否
    
15. .MatchWholeWord = False '全字匹配：否
    
16. .MatchByte = False '区分全/半角：否
    
17. .MatchWildcards = False '使用通配符：否
    
18. .MatchSoundsLike = False '同音(英文)：否
    
19. .MatchAllWordForms = False '查找单词的所有形式(英文)：否
    
20. End With
    
21. Selection.Find.Execute Replace:=wdReplaceAll '全部替换
    
22. 
    
23. '第2次替换
    
24. Selection.Find.ClearFormatting '清除查找格式
    
25. Selection.Find.Replacement.ClearFormatting '清除替换格式
    
26. With Selection.Find
    
27. .Text = "(__)(*)√([A-Z]{1})" '查找内容“(__)(*)√([A-Z]{1})”
    
28. .Replacement.Text = "\1\3\2\3" '替换为“\1\3\2\3”
    
29. .Forward = True
    
30. .Wrap = wdFindContinue '搜索全部
    
31. .Format = False
    
32. .MatchCase = False '区分大小写：否
    
33. .MatchWholeWord = False '全字匹配：否
    
34. .MatchByte = False '区分全/半角：否
    
35. .MatchAllWordForms = False '查找单词的所有形式(英文)：否
    
36. .MatchSoundsLike = False '同音(英文)：否
    
37. .MatchWildcards = True '使用通配符：是
    
38. End With
    
39. Selection.Find.Execute Replace:=wdReplaceAll '全部替换
    
40. 
    
41. '第3次替换
    
42. Selection.Find.ClearFormatting '清除查找格式
    
43. Selection.Find.Highlight = True '查找：突出显示
    
44. Selection.Find.Replacement.ClearFormatting '清除替换格式
    
45. Selection.Find.Replacement.Highlight = False '替换：非突出显示
    
46. With Selection.Find
    
47. .Text = ""
    
48. .Replacement.Text = ""
    
49. .Forward = True
    
50. .Wrap = wdFindContinue
    
51. .Format = True
    
52. .MatchCase = False '区分大小写：否
    
53. .MatchWholeWord = False '全字匹配：否
    
54. .MatchByte = False '区分全/半角：否
    
55. .MatchWildcards = False '使用通配符：否
    
56. .MatchSoundsLike = False '同音(英文)：否
    
57. .MatchAllWordForms = False '查找单词的所有形式(英文)：否
    
58. End With
    
59. Selection.Find.Execute Replace:=wdReplaceAll '全部替换
    
60. 
    
61. '第4次替换
    
62. Selection.Find.ClearFormatting '清除查找格式
    
63. Selection.Find.Replacement.ClearFormatting '清除替换格式
    
64. Selection.Find.Replacement.Font.Underline = wdUnderlineSingle '替换为→特殊格式→字体→单下划线
    
65. With Selection.Find
    
66. .Text = "(__)([A-Z]{1})" '查找内容“(__)([A-Z]{1})”
    
67. .Replacement.Text = "\1\2" '替换为“\1\2”
    
68. .Forward = True
    
69. .Wrap = wdFindContinue
    
70. .Format = True
    
71. .MatchCase = False '区分大小写：否
    
72. .MatchWholeWord = False '全字匹配：否
    
73. .MatchByte = False '区分全/半角：否
    
74. .MatchAllWordForms = False '查找单词的所有形式(英文)：否
    
75. .MatchSoundsLike = False '同音(英文)：否
    
76. .MatchWildcards = True '使用通配符：是
    
77. End With
    
78. Selection.Find.Execute Replace:=wdReplaceAll '全部替换
    
79. 
    
80. '第5次替换
    
81. Selection.Find.ClearFormatting '清除查找格式
    
82. Selection.Find.Replacement.ClearFormatting '清除替换格式
    
83. With Selection.Find
    
84. .Text = "(（ )(*)√([A-Z]{1})" '查找内容“(（ )(*)√([A-Z]{1})”
    
85. .Replacement.Text = "\1\3\2\3" '替换为“\1\3\2\3”
    
86. .Forward = True
    
87. .Wrap = wdFindContinue
    
88. .Format = False
    
89. .MatchCase = False '区分大小写：否
    
90. .MatchWholeWord = False '全字匹配：否
    
91. .MatchByte = False '区分全/半角：否
    
92. .MatchAllWordForms = False '查找单词的所有形式(英文)：否
    
93. .MatchSoundsLike = False '同音(英文)：否
    
94. .MatchWildcards = True '使用通配符：是
    
95. End With
    
96. Selection.Find.Execute Replace:=wdReplaceAll '全部替换
    
97. 
    
98. '第6次替换
    
99. Selection.Find.ClearFormatting '清除查找格式
    
100. Selection.Find.Replacement.ClearFormatting '清除替换格式
     
101. With Selection.Find
     
102. .Text = "(＿)(*)√([A-Z]{1})" '查找内容“(＿)(*)√([A-Z]{1})”
     
103. .Replacement.Text = "\1\3\2\3" '替换为“\1\3\2\3”
     
104. .Forward = True
     
105. .Wrap = wdFindContinue
     
106. .Format = False
     
107. .MatchCase = False '区分大小写：否
     
108. .MatchWholeWord = False '全字匹配：否
     
109. .MatchByte = False '区分全/半角：否
     
110. .MatchAllWordForms = False '查找单词的所有形式(英文)：否
     
111. .MatchSoundsLike = False '同音(英文)：否
     
112. .MatchWildcards = True '使用通配符：是
     
113. End With
     
114. Selection.Find.Execute Replace:=wdReplaceAll '全部替换
     
115. 
     
116. End Sub

复制代码

第二种情况，答案填到括号里：
（这里可以比第一种情况少替换一遍，不需要将答案加下划线）

1. 
   
2. Sub 单选题答案填到括号里()
   
3. ' 周星骋　编制
   
4. 
   
5. '第1次替换
   
6. Selection.Find.ClearFormatting '清除查找格式
   
7. Selection.Find.Highlight = True '查找：突出显示
   
8. Selection.Find.Replacement.ClearFormatting '清除替换格式
   
9. With Selection.Find
   
10. .Text = ""
    
11. .Replacement.Text = "√^&" '替换为“√^&”
    
12. .Forward = True
    
13. .Wrap = wdFindContinue '搜索全部
    
14. .Format = True
    
15. .MatchCase = False '区分大小写：否
    
16. .MatchWholeWord = False '全字匹配：否
    
17. .MatchByte = False '区分全/半角：否
    
18. .MatchWildcards = False '使用通配符：否
    
19. .MatchSoundsLike = False '同音(英文)：否
    
20. .MatchAllWordForms = False '查找单词的所有形式(英文)：否
    
21. End With
    
22. Selection.Find.Execute Replace:=wdReplaceAll '全部替换
    
23. 
    
24. '第2次替换
    
25. Selection.Find.ClearFormatting '清除查找格式
    
26. Selection.Find.Replacement.ClearFormatting '清除替换格式
    
27. With Selection.Find
    
28. .Text = "(__)(_{1,})(*)√([A-Z]{1})" '查找内容“(__)(_{1,})(*)√([A-Z]{1})”
    
29. .Replacement.Text = "（\4）\3\4" '替换为“（\4）\3\4”
    
30. .Forward = True
    
31. .Wrap = wdFindContinue '搜索全部
    
32. .Format = False
    
33. .MatchCase = False '区分大小写：否
    
34. .MatchWholeWord = False '全字匹配：否
    
35. .MatchByte = False '区分全/半角：否
    
36. .MatchAllWordForms = False '查找单词的所有形式(英文)：否
    
37. .MatchSoundsLike = False '同音(英文)：否
    
38. .MatchWildcards = True '使用通配符：是
    
39. End With
    
40. Selection.Find.Execute Replace:=wdReplaceAll '全部替换
    
41. 
    
42. '第3次替换
    
43. Selection.Find.ClearFormatting '清除查找格式
    
44. Selection.Find.Highlight = True '查找：突出显示
    
45. Selection.Find.Replacement.ClearFormatting '清除替换格式
    
46. Selection.Find.Replacement.Highlight = False '替换：非突出显示
    
47. With Selection.Find
    
48. .Text = ""
    
49. .Replacement.Text = ""
    
50. .Forward = True
    
51. .Wrap = wdFindContinue
    
52. .Format = True
    
53. .MatchCase = False '区分大小写：否
    
54. .MatchWholeWord = False '全字匹配：否
    
55. .MatchByte = False '区分全/半角：否
    
56. .MatchWildcards = False '使用通配符：否
    
57. .MatchSoundsLike = False '同音(英文)：否
    
58. .MatchAllWordForms = False '查找单词的所有形式(英文)：否
    
59. End With
    
60. Selection.Find.Execute Replace:=wdReplaceAll '全部替换
    
61. 
    
62. '第4次替换
    
63. Selection.Find.ClearFormatting '清除查找格式
    
64. Selection.Find.Replacement.ClearFormatting '清除替换格式
    
65. With Selection.Find
    
66. .Text = "(（ )(*）)(*)√([A-Z]{1})" '查找内容“(（ )(*）)(*)√([A-Z]{1})”
    
67. .Replacement.Text = "（\4）\3\4" '替换为“（\4）\3\4”
    
68. .Forward = True
    
69. .Wrap = wdFindContinue
    
70. .Format = False
    
71. .MatchCase = False '区分大小写：否
    
72. .MatchWholeWord = False '全字匹配：否
    
73. .MatchByte = False '区分全/半角：否
    
74. .MatchAllWordForms = False '查找单词的所有形式(英文)：否
    
75. .MatchSoundsLike = False '同音(英文)：否
    
76. .MatchWildcards = True '使用通配符：是
    
77. End With
    
78. Selection.Find.Execute Replace:=wdReplaceAll '全部替换
    
79. 
    
80. '第5次替换
    
81. Selection.Find.ClearFormatting '清除查找格式
    
82. Selection.Find.Replacement.ClearFormatting '清除替换格式
    
83. With Selection.Find
    
84. .Text = "(＿)(＿{1,})(*)√([A-Z]{1})" '查找内容“(＿)(＿{1,})(*)√([A-Z]{1})”
    
85. .Replacement.Text = "（\4）\3\4" '替换为“（\4）\3\4”
    
86. .Forward = True
    
87. .Wrap = wdFindContinue
    
88. .Format = False
    
89. .MatchCase = False '区分大小写：否
    
90. .MatchWholeWord = False '全字匹配：否
    
91. .MatchByte = False '区分全/半角：否
    
92. .MatchAllWordForms = False '查找单词的所有形式(英文)：否
    
93. .MatchSoundsLike = False '同音(英文)：否
    
94. .MatchWildcards = True '使用通配符：是
    
95. End With
    
96. Selection.Find.Execute Replace:=wdReplaceAll '全部替换
    
97. 
    
98. End Sub

复制代码

周星骋

使用通配符
查找内容：
[Ａ-Ｚ]{1,}
能找到全角字母。

第31、54、68、500、813、818、910题都有全角字母，
但有些题只有个别是全角且不是标准答案，所以不影响自动做题。

周星骋

好了，题做完了，有几个疑问我到是想请教楼主一下。

1、这些计算机方面的题貌似很过时吔～～，有些题现在看来不全面或者直接是错的。难道现在还用这样的题考学生？
2、有些题貌似打字员打的，这样的题备选答案中没有一个是正确的，例如：网址、邮箱中的英文半角小圆点“.”，打成了顿号“、”。这恐怕得你手工核对一遍吧？

3、我最关心的问题，像7楼一样对楼主的原文很感兴趣，就是：
那些答案标记成黄色背景突出显示，难道是手工按住 Ctrl 键一个个的选上，然后加突出显示的？这到是比复制到答题区简单一点点，但也不容易啊！
是不是用什么好办法自动标记的呢？如果是，请你告诉我一声，让我也学习一下。

考试加油站

周星骋 发表于 2014-9-19 16:50
好了，题做完了，有几个疑问我到是想请教楼主一下。

1、这些计算机方面的题貌似很过时吔～～，有些题现在 ...

试题是我从网上下载的，本想做一个专业的计算机方面软件，其格式为A1题干，B1为A选择项，C1为B选择项，以此类推。所以搜索了一下试题，做到电子表格中就可以批量处理了。那个问题其实我也感觉兴趣。

周星骋

考试加油站 发表于 2014-9-19 18:53
试题是我从网上下载的，本想做一个专业的计算机方面软件，其格式为A1题干，B1为A选择项，C1为B选择项， ...

果然是好办法，貌似用条件格式什么的。

geryjun

围观学习中。

ghw87654321

如果就是从工作角度，不要很复杂的方法，其实还是可以实现的，呵呵，
就是复制一份源文件，到excel表，然后复制两份回word，分别替换主题和答案；
然偶再复制到excel，排序，然后再复制到word，
这时候只要选择表格转成文本就行！就这个思路吧，我试了一下，可以实现。
这个主要是解决答案要插入一行的问题，我觉得excel排序更好操作，wrod更好操作替换。
有点取巧，但是很好理解。