红色段落加句号的代码怎么调整

batmanbbs

zhgj007 发表于 2025-2-1 03:59
谢谢老师的回复。不知道是否我抄的代码有问题，不执行。
Sub test()

常量名打错了，最后一个是字母L，不是数字1
PS: 1. 。后面有一个点，被论坛编辑器吃掉了，此外里面还有空格，符号是半角的，都会影响结果；2.如果段落最后是omath公式之类的，不能直接使用查找替换。

batmanbbs

【注】只支持word，不支持wps、如果两个都兼容，可以试试#17的代码

weiyingde

zhgj007 发表于 2025-2-1 03:59
谢谢老师的回复。不知道是否我抄的代码有问题，不执行。
Sub test()

试试这个：
Sub test2()
With ActiveDocument.Content.Find
.Font.ColorIndex = wdRed
.Execute "([! 。 ; ；,^13])(^13)", , , 1, , , , , , "\1。\2", 2
End With
End Sub

zhgj007

weiyingde 发表于 2025-2-1 13:24
试试这个：
Sub test2()
With ActiveDocument.Content.Find

谢谢老师啊，这个很好用。请问，能不能在解析最后一段缺少句号时，只在解析（红色）的最后一段末尾加句号？

zhgj007

batmanbbs 发表于 2025-2-1 09:08
常量名打错了，最后一个是字母L，不是数字1
PS: 1. 。后面有一个点，被论坛编辑器吃掉了，此外里面还 ...

改为l后，即使公式编辑器也能加句号了，谢谢老师

zhgj007

batmanbbs 发表于 2025-2-1 10:31

老师好，这个运行时，一直有个圈在转，似乎执行不完，只能关闭wps程序。试了几次，都一样，是不是用wps版本的原因？

batmanbbs

zhgj007 发表于 2025-2-1 16:04
老师好，这个运行时，一直有个圈在转，似乎执行不完，只能关闭wps程序。试了几次，都一样，是不是用wps版 ...

测试了一下，是wps的问题，修正了一下。PS：wps和word相比还是有差距啊，任重道远

zhgj007

batmanbbs 发表于 2025-2-1 17:11
测试了一下，是wps的问题，修正了一下。PS：wps和word相比还是有差距啊，任重道远

老师，还是有点慢。

batmanbbs

zhgj007 发表于 2025-2-2 07:42
老师，还是有点慢。

我个人觉得你思路本身有点问题，想提高速度应该改进方法。你现在需要先标红，然后在标红区域最后一段结尾处添加句号，这本身效率就低。应该想办法找规律，直接找到位置添加句号。最差的方法也可以改进为在标红的同时，就可以添加句号了。

zhgj007

batmanbbs 发表于 2025-2-2 11:13
我个人觉得你思路本身有点问题，想提高速度应该改进方法。你现在需要先标红，然后在标红区域最后一段结尾 ...

是的老师，这样效率低。我也在想办法，因为有的解析后有句号，有的没有。试了好几种方法，都不能完美解决。也麻烦老师帮着给想想办法