选择题变为填空题

nssn

1. 计算机网络通信的一个显著特点是（ B ）。
A稳定性
B间歇性、突发性
C安全性
D易用性
2. 计算机网络中信息传递的调度控制技术可分为三类，以下不属于此控制技术的是（ C ）。
A流量控制
B拥塞控制
C防止死锁
D时延控制
3. 按照网络的覆盖范围进行网络分类可以将网络分为（ A ）。
A广域网、城域网和局域网
B内联网、外联网和国际互联网
C公用网和专用网
D公用数据网、数字数据网和综合业务数据网
4. 在“回收站”窗口中，要将所有文件从其硬盘上删除，可用方法（  A）。
A单击“文件”菜单中“清空回收站”命令
B单击“文件”菜单中“删除”命令
C单击“文件”菜单中“剪切”命令
D单击“文件”菜单中“还原”命令
5. 当你使用计算机时，首先同你打交道的软件是（ A ），在它的控制调度下才得以方便、有效地利用系统各种资源。
A操作系统
B编译系统
C解释系统
D高级语言

转换为

1. 计算机网络通信的一个显著特点是（ B间歇性、突发性）。
2. 计算机网络中信息传递的调度控制技术可分为三类，以下不属于此控制技术的是（ C防止死锁 ）。
3. 按照网络的覆盖范围进行网络分类可以将网络分为（ A广域网、城域网和局域网 ）。
4. 在“回收站”窗口中，要将所有文件从其硬盘上删除，可用方法（A单击“文件”菜单中“清空回收站”命令）。
5. 当你使用计算机时，首先同你打交道的软件是（ A操作系统 ），在它的控制调度下才得以方便、有效地利用系统各种资源。

ming0018

附件来一个。

duquancai

这个写过代码了，论坛搜索一下。

nssn

duquancai 发表于 2018-7-25 10:33
这个写过代码了，论坛搜索一下。

搜索过了
zjgwzj网友的答案：
使用替换功能即可实现：打开替换对话框，点击左下角的“更多”按钮切换到高级替换界面，勾选”使用通配符“复选框，查找”（(*)([Ａ-Ｄ])(*)）(*)\2(*)^13“，替换为”（\1\5\3）\4“，点击”全部替换“按钮就可以了。
地址：http://club.excelhome.net/thread-1256121-1-1.html

我试了不行，能否分解讲解一下这个正则的含义？

zhanglei1371网友也解答过类似的问题
地址：http://club.excelhome.net/thread-1113762-1-1.html

因没看懂正则，所以不能举一反三，如果能解释一下正则的含义就更好了

nssn

ming0018 发表于 2018-7-25 09:45
附件来一个。

题型是从网络上复制的

nssn

用正则无法实现的话，不知道用AWK、SED能不能解决？

相见是缘8

Sub 将选择题变为填空题()
    With ActiveDocument.Content.Find
        .Execute "^11", , , 1, , , , , , "^p", 2
        .Execute "^w", , , 0, , , , , , "", 2
        .Execute "（(*)([A-D])(*)）(*)\2(*)^13", , , 1, , , , , , "（\1\2\5\3）\4", 2
        .Execute "^13([A-D])(*)^13", , , 1, , , , , , "^p", 2
        .Execute "^13([A-D])(*)^13", , , 1, , , , , , "^p", 2
    End With
End Sub

相见是缘8

多了一个，删除。

nssn

相见是缘8 发表于 2018-7-29 07:12
Sub 将选择题变为填空题()
    With ActiveDocument.Content.Find
        .Execute "^11", , , 1, , , , ...

感谢，测试正常

能不能讲解一下下面两行的含义？

(*)\2(*)
（\1\2\5\3）\4

相见是缘8

nssn 发表于 2018-7-29 11:05
感谢，测试正常

能不能讲解一下下面两行的含义？

http://club.excelhome.net/thread-1113762-1-1.html