ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 3068|回复: 14

怎么把选择题的答案变成固定格式?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-2-28 14:27 | 显示全部楼层 |阅读模式
我想把选择题
单线区段线桥工区应配备的停车信号牌、减速信号牌、减速地点标的数量为( )。
    A.2
    B.4
    C.6
    D.8
    参考答案 A
变成下面的格式
单线区段线桥工区应配备的停车信号牌、减速信号牌、减速地点标的数量为(A )。
    A.2
    B.4
    C.6
    D.8
怎么实现呢



TA的精华主题

TA的得分主题

发表于 2018-2-28 15:49 | 显示全部楼层
请楼主备份原文件后,打开要处理文档,按ctrl+Home将光标移到文首,然后按CTRL+H打开“替换”对话框。
*请在《查找内容》框中键入英文括号(,全部替换为中文括号(
*请在《查找内容》框中键入英文括号),全部替换为中文括号)
*参看下面图片进行操作,结束后,请在《查找内容》框中键入(参考答案
*全部替换为(
*注意是中文括号
*还有一个问题是造成了空行,可以将两个回车符^p^p替换为一个^p,多替换几次,OK!
参考答案.jpg

TA的精华主题

TA的得分主题

发表于 2018-2-28 15:53 | 显示全部楼层
本帖最后由 413191246se 于 2018-2-28 15:55 编辑

补:斜杠必须是半角英文的,即 \
^13是 脱字符(按住SHIFT键打 数字键 6 即可)------注意不要忘了勾选“使用通配符”选项*记着必须按 Ctrl + Home 键将光标移到文首后,再按图标所示,键入正确的字符后,按《全部替换》按钮

TA的精华主题

TA的得分主题

发表于 2018-3-1 10:02 | 显示全部楼层
413191246se 发表于 2018-2-28 15:53
补:斜杠必须是半角英文的,即 \
^13是 脱字符(按住SHIFT键打 数字键 6 即可)------注意不要忘了勾选“ ...

点赞!这样耐心的大神真难得!!!

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-3-6 15:54 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
413191246se 发表于 2018-2-28 15:49
请楼主备份原文件后,打开要处理文档,按ctrl+Home将光标移到文首,然后按CTRL+H打开“替换”对话框。
*请 ...

请问大神,这查找替换是什么意思呢?如果我想到过来操作,就是把括号里的答案移出来,怎么办?

TA的精华主题

TA的得分主题

发表于 2018-3-9 06:59 | 显示全部楼层
yzyz0812 发表于 2018-3-6 15:54
请问大神,这查找替换是什么意思呢?如果我想到过来操作,就是把括号里的答案移出来,怎么办?

选项答案都是固定的 A、B、C、D 还好办一点,如选项答案都是不固定的,那这个还原就要功力!

TA的精华主题

TA的得分主题

发表于 2018-3-9 09:11 | 显示全部楼层
本帖最后由 相见是缘8 于 2018-3-9 10:30 编辑
yzyz0812 发表于 2018-3-6 15:54
请问大神,这查找替换是什么意思呢?如果我想到过来操作,就是把括号里的答案移出来,怎么办?

回复重了,删除一条。

TA的精华主题

TA的得分主题

发表于 2018-3-10 13:45 | 显示全部楼层
本帖最后由 413191246se 于 2018-3-10 13:48 编辑

*楼主,大神不敢当!杜先生 才是真正的大神!
*请备份原文档后试用。
*请确保未替换前括号都是中文全角括号,否则请先行把所有英文半角全部替换为中文全角括号后再用。
*替换前请按 Ctrl + Home 将光标移到文首,再按 Ctrl + H 打开《查找和替换》对话框,请按下图进行《倒序》操作:(我替换2次WORD就崩溃了,所以请楼主做好心理准备。其实这种操作我还是喜欢用VBA代码来做,只须一行。)
daoxu_2.JPG

TA的精华主题

TA的得分主题

发表于 2018-3-10 15:11 | 显示全部楼层
413191246se 发表于 2018-3-10 13:45
*楼主,大神不敢当!杜先生 才是真正的大神!
*请备份原文档后试用。
*请确保未替换前括号都是中文全角括 ...

大神的功力不一般!佩服!
请问,如下面的这个“测试附件”,怎么把括号里的答案替换出来,为参考答案?

测试附件.rar

9.07 KB, 下载次数: 9

TA的精华主题

TA的得分主题

发表于 2018-3-11 00:14 | 显示全部楼层
* 楼上朋友好!大神确实不敢当!
* 你的问题有两种方式解决:一是手动替换;二是VBA宏代码。
*
* 手动替换:
1、请按 Ctrl + Home 组合键确保光标在文首;
2、在<查找内容>框中键入(下一行为键入内容;说明一下:第2第3括号为中文全角括号,其余皆为英文半角括号,直接复制,按 Ctrl + V 粘贴到框中即可)
(([ABCDE、]@))(*)(^13[0-9]@、)
3、在<替换为>框中键入(下一行为键入内容;说明一下:两个括号为中文全角括号,中间有4个空格)
(    )\2^p参考答案:\1\3
4、勾选《使用通配符》一栏
5、按《全部替换》按钮,OK!
*
* VBA宏代码方法:
* 执行下面的一行代码宏(提取答案)即可完成目标,如果想让答案更清晰、鲜明一些,继续执行第二个宏即可。
  1. Sub 提取答案()
  2.     ActiveDocument.Content.Find.Execute "(([ABCDE、]@))(*)(^13[0-9]@、)", , , 1, , , , , , "(    )\2^p参考答案:\1\3", 2
  3. End Sub
  4. Sub 参考答案加粗()
  5.     Dim i As Paragraph
  6.     For Each i In ActiveDocument.Paragraphs
  7.         If i.Range Like "参考答案:*" Then
  8.             With i.Range.Font
  9.                 .Name = "黑体"
  10.                 .Name = "Times New Roman"
  11.                 .Bold = True
  12.                 .Color = wdColorRed
  13.             End With
  14.         End If
  15.     Next
  16. End Sub
复制代码

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 21:27 , Processed in 0.064249 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表