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

考试加油站

求提取每个试题选择项到题前或题后)

求提取每个试题选择项到题前或题后).rar (110.71 KB, 下载次数: 62)

2014-9-18 13:04 上传

点击文件名下载附件

周星骋

我发现最近总是跟“替换”卯上了。
这里只做一下楼主的单项选择题。

分析规律：
1、题号虽然用阿拉数字+顿号，但大多数是 Word 自动编号功能生成的，少数是手工编号，所以这个规律不可取。
2、每道选择题预留填答案的位置，是下划线字符，应该至少都有2个下划线吧，这个规律可取，即“__”。
3、单选题答案都已经标记过。第1题至第41题是：加粗、突出显示黄色；第42题至第931题是：突出显示黄色。所以这里也有共同规律，即：突出显示。

难点：
无论是“查找内容”还是“替换为”，只能给整体内容限定格式，不能单独给某个表达式或字符串限定格式。
所以想一次性根据“突出显示”替换成功，有难度。
只得分两步进行：
首先，给“突出显示”内容前面加个标记，就加勾勾“√”吧。
然后，从“__”查找到“√”，就有依据了。

开工：
（注：文档的大标题也突出显示了，只得提前手工处理一下，这里略去不计。）
第1步替换：
　　不勾选“使用通配符”；
　　查找内容：啥都不填，只点击“更多”→“格式”→“突出显示”；
　　替换为：“√”后面跟“查找内容”，即：

1. √^&

复制代码

　　点击“全部替换”按钮。
如下图：


第2步替换：
　　勾选“使用通配符”；去掉“突出显示”；
　　查找内容：(两根下划线)(任意字符串)勾勾(任意单个的大写英文半角字母)，即：

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

复制代码

　　替换为：第1个、第3个、第2个、第3个表达式，即：

1. \1\3\2\3

复制代码

　　点击“全部替换”按钮。
如下图：


缺点：
　做出来的单选题答案中，没有去掉突出显示或加粗，没有加上下划线。期待高手处理。

录制成宏：
多余的代码我懒得处理。

1. 
   
2. Sub 单选题填现成答案()
   
3. ' 周星骋 编制
   
4.     Selection.Find.ClearFormatting
   
5.     Selection.Find.Highlight = True
   
6.     Selection.Find.Replacement.ClearFormatting
   
7.     With Selection.Find
   
8.         .Text = ""
   
9.         .Replacement.Text = "√^&"
   
10.         .Forward = True
    
11.         .Wrap = wdFindContinue
    
12.         .Format = True
    
13.         .MatchCase = False
    
14.         .MatchWholeWord = False
    
15.         .MatchByte = False
    
16.         .MatchWildcards = False
    
17.         .MatchSoundsLike = False
    
18.         .MatchAllWordForms = False
    
19.     End With
    
20.     Selection.Find.Execute Replace:=wdReplaceAll
    
21.     Selection.Find.ClearFormatting
    
22.     Selection.Find.Replacement.ClearFormatting
    
23.     With Selection.Find
    
24.         .Text = "(__)(*)√([A-Z]{1})"
    
25.         .Replacement.Text = "\1\3\2\3"
    
26.         .Forward = True
    
27.         .Wrap = wdFindContinue
    
28.         .Format = False
    
29.         .MatchCase = False
    
30.         .MatchWholeWord = False
    
31.         .MatchByte = False
    
32.         .MatchAllWordForms = False
    
33.         .MatchSoundsLike = False
    
34.         .MatchWildcards = True
    
35.     End With
    
36.     Selection.Find.Execute Replace:=wdReplaceAll
    
37. End Sub
    

复制代码

周星骋

索性好人做到底。
再做两次替换。

第3次替换：
查找内容：
　　不勾“使用通配符”；
　　神马都不填；
　　Ctrl+B “加粗”、选上“突出显示”。
替换为：
　　“非加粗”、“非突出显示”。
如下图：


第4次替换：
查找内容：
　　去掉“加粗”、“突出显示”；
　　勾上“使用通配符”；
　　(两根下划线)(大写英文半角的单个字母)，即：
(__)([A-Z]{1})
替换为：
　　去掉“非加粗”、“非突出显示”；
　　第1个、第2个表达式，即：
\1\2
如下图：


明天再来，将4步一并录制成宏。

楼主目前是V4级别高手，可以批评我用4步替换的办法蠢，但不可侮辱我的苦劳。

考试加油站

周星骋 发表于 2014-9-18 18:03
索性好人做到底。
再做两次替换。

感谢热心帮助，一会研究。先谢谢

周星骋

纠正一下3楼。
第3步替换中，“查找内容”不要“加粗”，“替换为”也不要“非加粗”。因为“加粗”在楼主整篇单选答案中不是一以贯之。
第4步替换中，“替换为”里少说了一个“特殊格式”→“字体”→“下划线”。

上述4个替换步骤已经录制成一个完整的宏了，
（还是未整理多余的代码），
如下：

1. Sub 单选题填现成答案()
   
2. ' 周星骋　编制
   
3. Selection.Find.ClearFormatting
   
4. Selection.Find.Highlight = True
   
5. Selection.Find.Replacement.ClearFormatting
   
6. With Selection.Find
   
7. .Text = ""
   
8. .Replacement.Text = "√^&"
   
9. .Forward = True
   
10. .Wrap = wdFindContinue
    
11. .Format = True
    
12. .MatchCase = False
    
13. .MatchWholeWord = False
    
14. .MatchByte = False
    
15. .MatchWildcards = False
    
16. .MatchSoundsLike = False
    
17. .MatchAllWordForms = False
    
18. End With
    
19. Selection.Find.Execute Replace:=wdReplaceAll
    
20. Selection.Find.ClearFormatting
    
21. Selection.Find.Replacement.ClearFormatting
    
22. With Selection.Find
    
23. .Text = "(__)(*)√([A-Z]{1})"
    
24. .Replacement.Text = "\1\3\2\3"
    
25. .Forward = True
    
26. .Wrap = wdFindContinue
    
27. .Format = False
    
28. .MatchCase = False
    
29. .MatchWholeWord = False
    
30. .MatchByte = False
    
31. .MatchAllWordForms = False
    
32. .MatchSoundsLike = False
    
33. .MatchWildcards = True
    
34. End With
    
35. Selection.Find.Execute Replace:=wdReplaceAll
    
36. Selection.Find.ClearFormatting
    
37. Selection.Find.Replacement.ClearFormatting
    
38. With Selection.Find
    
39. .Text = "(__)(*)√([A-Z]{1})"
    
40. .Replacement.Text = "\1\3\2\3"
    
41. .Forward = True
    
42. .Wrap = wdFindContinue
    
43. .Format = False
    
44. .MatchCase = False
    
45. .MatchWholeWord = False
    
46. .MatchByte = False
    
47. .MatchWildcards = False
    
48. .MatchSoundsLike = False
    
49. .MatchAllWordForms = False
    
50. End With
    
51. Application.WindowState = wdWindowStateNormal
    
52. Selection.Find.ClearFormatting
    
53. Selection.Find.Highlight = True
    
54. Selection.Find.Replacement.ClearFormatting
    
55. Selection.Find.Replacement.Highlight = False
    
56. With Selection.Find
    
57. .Text = ""
    
58. .Replacement.Text = ""
    
59. .Forward = True
    
60. .Wrap = wdFindContinue
    
61. .Format = True
    
62. .MatchCase = False
    
63. .MatchWholeWord = False
    
64. .MatchByte = False
    
65. .MatchWildcards = False
    
66. .MatchSoundsLike = False
    
67. .MatchAllWordForms = False
    
68. End With
    
69. Selection.Find.Execute Replace:=wdReplaceAll
    
70. Selection.Find.ClearFormatting
    
71. Selection.Find.Replacement.ClearFormatting
    
72. Selection.Find.Replacement.Font.Underline = wdUnderlineSingle
    
73. With Selection.Find
    
74. .Text = "(__)([A-Z]{1})"
    
75. .Replacement.Text = "\1\2"
    
76. .Forward = True
    
77. .Wrap = wdFindContinue
    
78. .Format = True
    
79. .MatchCase = False
    
80. .MatchWholeWord = False
    
81. .MatchByte = False
    
82. .MatchAllWordForms = False
    
83. .MatchSoundsLike = False
    
84. .MatchWildcards = True
    
85. End With
    
86. Selection.Find.Execute Replace:=wdReplaceAll
    
87. End Sub
    

复制代码

考试加油站

周星骋 发表于 2014-9-18 18:53
纠正一下3楼。
第3步替换中，“查找内容”不要“加粗”，“替换为”也不要“非加粗”。因为“加粗”在楼主 ...

谢谢，确实水平很高，除了个别别括号的题（不是横线）没解决，全解决了，问一下，如答案加上括号，应当如何替换

eh蝴蝶效应

按照2楼操作，确实在高亮部分前批量添加了“√”。
但问题是这些高亮部分是手动逐个设置的吗？假如是的话，用设置高亮的操作直接改成“复制该项前面的选择序号粘贴到试题前就可以了。”两者所花的时间几乎是等长的呀？

周星骋

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

再纠正一下我5楼录制的宏，将第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. End Sub
    

复制代码

周星骋

eh蝴蝶效应 发表于 2014-9-19 08:13
按照2楼操作，确实在高亮部分前批量添加了“√”。
但问题是这些高亮部分是手动逐个设置的吗？假如是的话， ...

思路挺好，我起初也是那么想的。
但关键是“查找内容”要么只能都“突出显示”、要么只能都“非突出显示”。
我无法一步查找到：突出显示的下划线  到  非突出显示的ABCD。

考试加油站

周星骋 发表于 2014-9-19 09:39
思路挺好，我起初也是那么想的。
但关键是“查找内容”要么只能都“突出显示”、要么只能都“非突出显示 ...

想将横线上填写的代码加上括号可以吗？