这个试卷的答案中选项ABCDEF的格式如何批量修改

rmajly

     这是个word文档的试卷，里面的答案ABCDEF都连在一起了，举例如下（其中红色标注的字体，是准备修改后的样子）：

      122. 患者女，63岁。右下腹及脐周隐痛3年，渐渐清瘦，近2个月来常有低热，体格检查发现右下腹可触及一6cm×4cm大小的包块，较硬，尚可推动，压痛，锁骨上及腹股沟区未触及肿大淋巴结，结合其他检查结果，该患者被确诊为右侧结肠癌。如果考虑进行西妥昔单抗治疗，为确定野生型还是突变型，该患者的手术标本切片后应该送的基因检测项目是

A EGFRB K-RASCVEGFRD B-RAFE ERCC-1F AKT（实际应该是：A EGFR      B K-RAS      C VEGFR     D B-RAF     E ERCC-1    F AKT）

答案:B

      123. 患者男，49岁。进行性吞咽困难3个月余，体重近来明显减轻，伴呛咳，声嘶，查体：浅表淋巴结未及明显肿大。该患者同时出现远处转移，则化疗可选择的方案有

A DDP+5-FUB 希罗达C ADM+IFOD PTX+DDPE GEM+5-FUF CPT-11+DDP（实际应该是：A DDP+5-FU     B 希罗达     C ADM+IFO      D PTX+DDP      E GEM+5-FU     F CPT-11+DDP）

答案:A,D,E,F

       题很多，想批量修改，请高人指点，谢谢！
aa.zip (18.09 KB, 下载次数: 7)

2022-1-8 20:19 上传

点击文件名下载附件

413191246se

1. Sub a_find_replace_answer()
   
2.     ActiveDocument.Content.Find.Execute "([B-F])( )([! ]*^13)", , , 1, , , , , , "    \1.\3", 2
   
3.     ActiveDocument.Content.Find.Execute "([B-F])( )([! ]*^13)", , , 1, , , , , , "    \1.\3", 2
   
4.     ActiveDocument.Content.Find.Execute "([B-F])( )([! ]*^13)", , , 1, , , , , , "    \1.\3", 2
   
5.     ActiveDocument.Content.Find.Execute "([B-F])( )([! ]*^13)", , , 1, , , , , , "    \1.\3", 2
   
6.     ActiveDocument.Content.Find.Execute "([B-F])( )([! ]*^13)", , , 1, , , , , , "    \1.\3", 2
   
7.     ActiveDocument.Content.Find.Execute "(A)( )([! ]*^13)", , , 1, , , , , , "\1.\3", 2
   
8. End Sub

复制代码

rmajly

413191246se 发表于 2022-1-8 22:17

太厉害了，一键搞定！非常感谢！！

rmajly

还有一个有用的功能，不能试题之间没有空行，可以这么办：查找→(^13)([0-9])→高级→【勾选】使用通配符→替换→替换为→\1^13\2→全部替换

rmajly

试题之间没有空行，正则可以这么搞定：查找→(^13)([0-9])→高级→【勾选】使用通配符→替换→替换为→\1^13\2→全部替换
试试？

rmajly

413191246se 发表于 2022-1-8 22:17

再麻烦您一下：发现一个问题，有的试卷，部分答案是纵向排列的，部分答案是横向排列的，VBA后，横向排的答案解决了，但是竖向排的答案运行宏以后，除答案A外，其他答案都会向后退几个空格，不太好看（见下图）。请教有什么好的办法解决。谢谢！



aa.zip (18.36 KB, 下载次数: 4)

2022-1-9 19:02 上传

点击文件名下载附件

413191246se

* 楼主，你好！——第一，请注意备份原文件（未处理的）；第二，如果你的系统是 Win10x64（64位），请复制代码到空白文档后，再剪切下来，粘贴到 VBE 中执行。另外，建议可以把试卷页边距减小一些，让栏间距大一些，更好看（建议试卷要逐题审核，以免有错误之处）。

1. Sub a_find_replace_answer_update0109()
   
2.     With ActiveDocument.Content.Find
   
3.         .Execute "([B-F])( )([! ]*^13)", , , 1, , , , , , "^t\1. \3", 2
   
4.         .Execute "([B-F])( )([! ]*^13)", , , 1, , , , , , "^t\1. \3", 2
   
5.         .Execute "([B-F])( )([! ]*^13)", , , 1, , , , , , "^t\1. \3", 2
   
6.         .Execute "([B-F])( )([! ]*^13)", , , 1, , , , , , "^t\1. \3", 2
   
7.         .Execute "([B-F])( )([! ]*^13)", , , 1, , , , , , "^t\1. \3", 2
   
8.         .Execute "(A)( )([! ]*^13)", , , 1, , , , , , "\1. \3", 2
   
9.         .Execute "(^13)(^t[B-F].)", , , 1, , , , , , "\2", 2
   
10.         .Execute "(^t)(D.)", , , 1, , , , , , "^13\2", 2
    
11.         .Execute "(答案):", , , 1, , , , , , "\1：", 2
    
12.         .Execute "([A-F])(,)([B-F])", , , 1, , , , , , "\1\2 \3", 2
    
13.         .Execute "([A-F])(,)([B-F])", , , 1, , , , , , "\1\2 \3", 2
    
14.         .Execute "([A-F])(、)([B-F])", , , 1, , , , , , "\1, \3", 2
    
15.         .Execute "([A-F])(、)([B-F])", , , 1, , , , , , "\1, \3", 2
    
16.         .Execute "(^13)([0-9]{1,})([. ]{1,})", , , 1, , , , , , "\1\1\2. ", 2
    
17.     End With
    
18.    
    
19.     With Selection
    
20.         .WholeStory
    
21.         With .Font
    
22.             .NameFarEast = "宋体"
    
23.             .NameAscii = "Times New Roman"
    
24.         End With
    
25.         .ParagraphFormat.TabStops.ClearAll
    
26.         ActiveDocument.DefaultTabStop = CentimetersToPoints(4.6)
    
27.         .ParagraphFormat.TabStops.Add Position:=CentimetersToPoints(2.3) _
    
28.             , Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderSpaces
    
29.         .HomeKey 6
    
30.     End With
    
31.    
    
32.     Dim i As Paragraph
    
33.     For Each i In ActiveDocument.Paragraphs
    
34.         With i.Range
    
35.             If .Text Like "答案：*" Then
    
36.                 ActiveDocument.Range(Start:=.Start, End:=.Characters(3).End).Bold = True '答案加粗
    
37.                 If .End <> ActiveDocument.Content.End Then
    
38.                     With .Next(4, 1)
    
39.                         If Asc(.Text) <> 13 Then
    
40.                             .InsertBefore Text:="解析："
    
41.                             ActiveDocument.Range(Start:=.Start, End:=.Characters(3).End).Bold = True '解析加粗
    
42.                         End If
    
43.                     End With
    
44.                     
    
45.                 End If
    
46.             End If
    
47.         End With
    
48.     Next
    
49. End Sub

复制代码

rmajly

413191246se 发表于 2022-1-9 23:58
* 楼主，你好！——第一，请注意备份原文件（未处理的）；第二，如果你的系统是 Win10x64（64位），请复制 ...

收到，非常感谢！

三羧酸

非常好的解决方案

ytmoola

功能太强大了