如何查找到中文冒号至加速之间的字符，并指定字符数？

相见是缘8

shenjianrong163 发表于 2020-7-5 23:38
将正则改为"\r[^\r]{3,6}："试试！

老师好！
按你所教修改，好像不成，程序陷入无限循环。

shenjianrong163

相见是缘8 发表于 2020-7-6 09:28
老师好！
按你所教修改，好像不成，程序陷入无限循环。

我运行是正常的，下面是实现的效果：

你复制代码的时候输入法是不是中文的？这个网站在复制代码时要注意切换输入法为中文。
附件.rar (11.71 KB, 下载次数: 3)

2020-7-6 10:19 上传

点击文件名下载附件

相见是缘8

shenjianrong163 发表于 2020-7-6 10:19
我运行是正常的，下面是实现的效果：

你复制代码的时候输入法是不是中文的？这个网站在复制代码时要注 ...

老师好！
是输入法为中文。
在这个 “附件” 中是可以，只是运行的时间长一点点而已，但在较大的文档（810KB）中运行，程序运行了10多分钟都不结束，好像陷入了无限的死循环，直到电脑死机不能动为止。

shenjianrong163

相见是缘8 发表于 2020-7-6 10:53
老师好！
是输入法为中文。
在这个 “附件” 中是可以，只是运行的时间长一点点而已，但在较大的文档（ ...

这个附件中运行我这儿大概2秒，你发一个大点的文档附件我测试下。

相见是缘8

shenjianrong163 发表于 2020-7-6 11:13
这个附件中运行我这儿大概2秒，你发一个大点的文档附件我测试下。

老师好！

我这要5秒多。

好，我把这个原附件，通过反复的复制粘贴加大了，你试试。

shenjianrong163

相见是缘8 发表于 2020-7-6 13:49
老师好！我这要5秒多。好，我把这个原附件，通过反复的复制粘贴加大了，你试试。

测试了下，运行慢的原因是代码每次查找到内容后都要重头开始查找，这就增加了查找的任务，降低了效率。
如果不考虑选中，可以考虑用下面的代码，20页的文档，原来的要224秒，下面的代码只要20秒左右。

1. Sub test()
   
2.     Dim mh, reg, t
   
3.     t = Timer
   
4.     Set reg = CreateObject("VBScript.RegExp")
   
5.     With reg
   
6.         .Pattern = "\r[^\r]{3,6}："
   
7.         .Global = True
   
8.     End With
   
9.     Set mh = reg.Execute(ActiveDocument.Content)
   
10.     If mh.Count > 0 Then
    
11.         For Each mhk In mh
    
12.             With ActiveDocument.Content.Find
    
13.                 .ClearFormatting
    
14.                 .Replacement.ClearFormatting
    
15.                 .Forward = True
    
16.                 .Text = mhk
    
17.                 .Replacement.Font.Color = wdColorBlue '字符为蓝色
    
18.                 .Replacement.Text = mhk '替换字符串
    
19.                 .Execute Replace:=wdReplaceAll
    
20.             End With
    
21.         Next
    
22.     End If
    
23.     MsgBox "操作完成!用时：" & Format(Timer - t, "0.0000") & "秒!"
    
24. End Sub

复制代码

相见是缘8

shenjianrong163 发表于 2020-7-6 19:07
测试了下，运行慢的原因是代码每次查找到内容后都要重头开始查找，这就增加了查找的任务，降低了效率。
...

感谢老师！

不知怎么会事，这个代码你20秒，我在“加大附件”上运行，要40多分钟才能完成，电脑死机不会。但另有2个问题不知你发现没有：

1、每个替换为了蓝色的字段，如碰到原来有段落首行缩进2个字符的，都变为不缩进了。

2、每个替换为了蓝色的字段，那个开头的段落符，都变为了不正常的段落符，正常的段落符，光标只能点在它的前面，而这个段落符，光标在它的前面、后面都可以点。

为了便于观察，我把“加大附件”内的所有段落，设为了首行缩进2个字符，劳你再看看。

相见是缘8

顶一下……！

zpy2

相见是缘8 发表于 2020-7-7 07:47
感谢老师！不知怎么会事，这个代码你20秒，我在“加大附件”上运行，要40多分钟才能完成，电脑死机不会。 ...

word自动化是比较慢的，如果批处理的文件比较大，建议采用html或latex之类的字符串脚本，直接字符串替换，一二秒就够了。

相见是缘8

zpy2 发表于 2020-7-8 13:53
word自动化是比较慢的，如果批处理的文件比较大，建议采用html或latex之类的字符串脚本，直接字符串替换 ...

老师好！
这个具体怎么用，是下载一个软件吗？