ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[求助] 用VBA实现,将试题的答案匹配出来

[复制链接]

TA的精华主题

TA的得分主题

发表于 2023-8-25 20:43 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

目前word的内容(见下方),前部分是试题,后部分是答案,现在想用VBA代码,将每一题的答案最写在该试题的下方,有高手可以指点么,感激不尽
试题.zip (48.3 KB, 下载次数: 17)




第一单元 药性理论

一、A1
1、辛味药临床一般治疗的是
A、表证及气滞血瘀证?
B、呕吐呃逆?
C、久泻久痢?
D、瘰疠、瘿瘤、痰核?
E、大便燥结?
2、芳香药多具有
A、辛味?
B、甘味?
C、苦味?
D、酸味?
E、淡味?
3、升降浮沉是指
A、药物的作用趋向性?
B、药物的作用部位的选择性?
C、药物有无毒副作用?
D、药物性能峻猛与否?
E、药物有无补泻作用?

答案部分

一、A1
1、
【正确答案】 A
【答案解析】 辛:有发散、行气、行血等作用。一般来讲,解表药、行气药、活血药多具有辛味。多用治表证及气血阻滞之证。
【该题针对“药性理论”知识点进行考核】
【答疑编号101321285,点击提问】
2、
【正确答案】 A
【答案解析】 芳香药物多具有辛味。
【该题针对“药性理论”知识点进行考核】
【答疑编号101321284,点击提问】
3、
【正确答案】 A
【答案解析】 升降浮沉是指药物对人体作用的不同趋向性。
【该题针对“药性理论”知识点进行考核】
【答疑编号101321283,点击提问】

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-8-25 20:46 | 显示全部楼层
想达到的效果是:
一、A1
1、辛味药临床一般治疗的是
A、表证及气滞血瘀证?
B、呕吐呃逆?
C、久泻久痢?
D、瘰疠、瘿瘤、痰核?
E、大便燥结?
【正确答案】 A
【答案解析】 辛:有发散、行气、行血等作用。一般来讲,解表药、行气药、活血药多具有辛味。多用治表证及气血阻滞之证。
【该题针对“药性理论”知识点进行考核】
【答疑编号101321285,点击提问】
2、芳香药多具有
A、辛味?
B、甘味?
C、苦味?
D、酸味?
E、淡味?
【正确答案】 A
【答案解析】 芳香药物多具有辛味。
【该题针对“药性理论”知识点进行考核】
【答疑编号101321284,点击提问】
3、升降浮沉是指
A、药物的作用趋向性?
B、药物的作用部位的选择性?
C、药物有无毒副作用?
D、药物性能峻猛与否?
E、药物有无补泻作用?
【正确答案】 A
【答案解析】 升降浮沉是指药物对人体作用的不同趋向性。
【该题针对“药性理论”知识点进行考核】
【答疑编号101321283,点击提问】

TA的精华主题

TA的得分主题

发表于 2023-8-26 10:01 | 显示全部楼层
gareth 发表于 2023-8-25 20:46
想达到的效果是:
一、A1
1、辛味药临床一般治疗的是

查找替换 就能搞

1、 所有的回车符  替换成软回车     
image.png

2、题号前面的 软回车换成段落标记
image.png
3、选中 第一题到答案前的部分  文本转表格
image.jpg
4.在表格右侧插入一列
image.jpg
5.选择答案部分到末尾 文本转表格
image.jpg
6、剪切答案表格 以覆盖单元格的方式粘贴在试题部分的空白单元格里,并检查是否一一对应
image.jpg

7、选择表格 表格转文本  段落标记
8、删除【正确答案】前面的题号  
image.png
9、最后把换行符换成回车符就完成了

zyx_lx0101.zip

50.85 KB, 下载次数: 4

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-8-26 11:10 | 显示全部楼层
蜀中草莽 发表于 2023-8-26 10:01
查找替换 就能搞

1、 所有的回车符  替换成软回车     

谢谢您的指点。我有数百个文档,手动操作太麻烦了,想用代码实现

TA的精华主题

TA的得分主题

发表于 2023-8-26 17:47 | 显示全部楼层
没有考虑速度和算法,按照 蜀中草莽 老师的将回车符替换成软回车的思路弄了一下。
image.jpg

评分

3

查看全部评分

TA的精华主题

TA的得分主题

发表于 2023-8-26 18:53 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-8-27 17:33 | 显示全部楼层

这太牛了!一键实现! 如果能批量就完美了,我还有几百个文档呀

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-8-27 17:35 | 显示全部楼层
batmanbbs 发表于 2023-8-26 17:47
没有考虑速度和算法,按照 蜀中草莽 老师的将回车符替换成软回车的思路弄了一下。

非常感谢老师,我要删除每个答案的最后一行 【答疑编号*******,点击提问】 ,请问如何实现呀

TA的精华主题

TA的得分主题

发表于 2023-8-27 17:51 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
gareth 发表于 2023-8-27 17:33
这太牛了!一键实现! 如果能批量就完美了,我还有几百个文档呀

https://club.excelhome.net/forum ... hlight=%C5%FA%C1%BF
看2楼,自己改一下即可

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-8-28 18:59 | 显示全部楼层
batmanbbs 发表于 2023-8-27 17:51
https://club.excelhome.net/forum.php?mod=viewthread&tid=1669674&highlight=%C5%FA%C1%BF
看2楼,自 ...

非常感谢!!
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-12-26 14:48 , Processed in 0.054844 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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