把文件中的解析内容去掉

zhy8888256 · 发表于 2023-9-6 15:37

把每题的解析内容去掉

batmanbbs · 发表于 2023-9-6 22:55

zhy8888256 · 发表于 2023-9-7 08:39

batmanbbs 发表于 2023-9-6 22:55

非常感谢！！

tyd789 · 发表于 2023-9-8 22:28

batmanbbs 发表于 2023-9-6 22:55

有的解析好像不止一段内容，比如第5题和第10题，是否也能全部匹配？

batmanbbs · 发表于 2023-9-8 23:03

本帖最后由 batmanbbs 于 2023-9-9 00:21 编辑

tyd789 发表于 2023-9-8 22:28
有的解析好像不止一段内容，比如第5题和第10题，是否也能全部匹配？

使用任何方法的前提是文档的规范性，如果文档不规范，无法做到准确识别，就像这个文档中解析分多行，虽然可以用下面的方法解决：

但随之而来的是363-370的编号是采用的列表编号，造成又无法准确识别，如果采用下面方法解决：

但是356,358又出现问题：没有独立成段，和上一个解析连成一个段落，造成仍无法准确完成匹配。

所以做查找替换的前提是，文本要规范，有可循的规律才行。
PS：上面两种方法都无法识别最后一个解析，因为最后一个解析在文档结束位置，之后没有文字可以进行辅助识别。当然，如果使用正则是可以实现的。

过客fppt · 发表于 2023-9-9 18:46

batmanbbs老师说得对，文本不规范，很难批量进行操作

开发qq972785243 · 发表于 2023-9-23 23:24

查收吧，里面用的常规循环段落处理，包括解析是多行的删除，运行约5分钟吧，要更快，那是另外的写法

zhanglei1371 · 发表于 2023-9-24 09:54

Word题库批量删除解析的技巧_哔哩哔哩_bilibili https://www.bilibili.com/video/B ... 6bb7d676ac476647c24
自动编号转手动：
ActiveDocument.Content.ListFormat.ConvertNumbersToText

wdpfox · 发表于 2023-9-27 10:01

本帖最后由 wdpfox 于 2023-9-27 10:33 编辑

开发qq972785243 发表于 2023-9-23 23:24
查收吧，里面用的常规循环段落处理，包括解析是多行的删除，运行约5分钟吧，要更快，那是另外的写法

学习了，谢谢分享！

更快的可能是：

sub test()

Dim B As Document

Set B = ActiveDocument

With B.Content.Find

      .Parent.ListFormat.ConvertNumbersToText                               ' 自动编号转手动编号！！

      .Execute "([!0-9^13])([0-9]{1,}[、])", , , 1, , , , , , "\1^13\2", 2 ' 规范题号：此句仅对本测试文本有效，有坑

      .Execute "(^13)(解析*)(^13[0-9]{1,}[、])", , , 1, , , , , , "\3", 2

      .Execute "(^13)(解析*)(^13)", , , 1, , , , , , "\1", 2             '       删除文档末的“解析”部分

      MsgBox "完成！"

End With

end sub

		自动登录	找回密码
密码			免费注册

[求助] 把文件中的解析内容去掉

评分