1234

ExcelHome技术论坛

用户名  找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[求助] 提取 Word中答案

[复制链接]

TA的精华主题

TA的得分主题

发表于 2024-12-24 21:13 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2024-12-25 00:29 | 显示全部楼层
查找替换基本就可以完成这个操作,如果非要代码,录制一下宏即可
1.gif

评分

3

查看全部评分

TA的精华主题

TA的得分主题

发表于 2024-12-25 08:12 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 thunor 于 2024-12-25 08:17 编辑

按照你提供的附件很好实现。逐段判断开始第一个字符是否为红色,是:本段删除;否:本段保留。这就不是一个事。

TA的精华主题

TA的得分主题

发表于 2024-12-25 08:30 | 显示全部楼层
Sub Delete_Other()
For i = ActiveDocument.Paragraphs.Count To 1 Step -1
ActiveDocument.Paragraphs(i).Range.Select
ActiveWindow.Selection.Collapse Direction:=wdCollapseStart
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    If ActiveWindow.Selection.Font.ColorIndex = wdRed Then
        ActiveDocument.Paragraphs(i).Range.Delete
    End If
Next
End Sub

TA的精华主题

TA的得分主题

发表于 2024-12-25 10:54 | 显示全部楼层

以下步骤,相信大佬们都可以用VBA做到,想要准确找出答案的区域,那就准确找到每个答案结束的位置即可,剩下的就简单了

第1步,生成题目导航编号
第2步,导航编号显示题干

image.jpg



第3步,选中不是题目的内容,清空这部分的题目导航编号
image.jpg

第4步,自动识别答案结束位置,并添加答案结束标志
image.jpg

第5步,使用文本通配符【【答案】*daanortimuend】,在主文档中查找
image.jpg

第6步,剪切选中的内容,粘贴到文档的末端即可
image.jpg
image.jpg

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2024-12-25 10:59 | 显示全部楼层
用拷贝实现的,学习WORD VBA。

高一化学期末模拟卷(解析版).rar

528.89 KB, 下载次数: 13

评分

2

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-12-25 11:22 | 显示全部楼层
batmanbbs 发表于 2024-12-25 00:29
查找替换基本就可以完成这个操作,如果非要代码,录制一下宏即可

谢谢你的回复


查找替换  是可以达目的   每次都要输入一堆正则表达 式,很麻烦。
Word 录制宏 我不会(要键盘操作)。


TA的精华主题

TA的得分主题

 楼主| 发表于 2024-12-25 11:27 | 显示全部楼层
thunor 发表于 2024-12-25 08:12
按照你提供的附件很好实现。逐段判断开始第一个字符是否为红色,是:本段删除;否:本段保留。这就不是一个 ...

谢谢  你的回复
这个颜色是我自己手动改了一下,以便区分

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-12-25 11:31 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
chxw68 发表于 2024-12-25 10:59
用拷贝实现的,学习WORD VBA。

谢谢  老师再次帮忙做   太感谢了

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-12-25 11:32 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
过客fppt 发表于 2024-12-25 10:54
以下步骤,相信大佬们都可以用VBA做到,想要准确找出答案的区域,那就准确找到每个答案结束的位置即可, ...

谢谢  老师的回复
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

1234

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

GMT+8, 2025-2-24 20:12 , Processed in 0.030548 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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