如何查找到中文冒号至加速之间的字符？

相见是缘8 · 发表于 2020-6-26 09:26

本帖最后由相见是缘8 于 2020-6-26 09:30 编辑

老师们好！

中文冒号至加速，这两个关键字符之间包含的字符不同，字符的多少也不同，两个关键字符在段中的位置不固定，也不是处在段落的开头和结尾。

详情请看附件，谢射！

413191246se · 发表于 2020-6-26 12:58

Sub test查找冒号与加速之间文字()
Dim i As Paragraph, s$
For Each i In ActiveDocument.Paragraphs
If i.Range Like "*：*加速*" Then
i.Range.Characters(1).Select
With Selection
Do
Do
If .Text = "：" Then Exit Do
.MoveEnd
If .Text Like "*" & vbCr Then GoTo sk
Loop Until .Text Like "*："
.Characters.Last.Select
Do
.MoveEnd
If .Text Like "*" & vbCr Then GoTo sk
Loop Until .Text Like "*加速"
.MoveStart
.MoveEnd 1, -2
s = s & .Text & vbCr
.Next.Select
Loop
End With
End If
sk:
Next
MsgBox s, 0 + 48
End Sub

复制代码

cuanju · 发表于 2020-6-26 14:00

请测试。不过，这里的通配符用@可以，用{1,}不行，不知原因，
====================================
Sub d0()
With ActiveDocument.Content.Find
      .MatchWildcards = True
      .Text = "：[!^13]@加速"
      Do While .Execute
         With .Parent
            'Stop
            .Select
            .Font.Color = vbBlue
            .Start = .End
         End With
      Loop
End With
End Sub

相见是缘8 · 发表于 2020-6-26 18:48

本帖最后由相见是缘8 于 2020-6-26 18:58 编辑

413191246se 发表于 2020-6-26 12:58

感谢 413191246se 老师！
可能是我没有表述清楚，让你误判了我的意思，你的代码是把两个关键字符之间的字符提取了出来，是吧？
实际上，我就是需要一个如 Cuanju 老师给的这个　：[!^13]@加速　表达式（如再能加上限制两个关键字符之间字符的多少就更好），后手动查找选定的效果就可。

相见是缘8 · 发表于 2020-6-26 19:03

本帖最后由相见是缘8 于 2020-6-27 08:55 编辑

cuanju 发表于 2020-6-26 14:00
请测试。不过，这里的通配符用@可以，用{1,}不行，不知原因，
====================================
Sub ...

感谢 Cuanju 老师！
我刚测试了，代码 OK！
你给的这个表达式　：[!^13]@加速　高级！！！
我原用　：*加速　和　：[!^13]*加速　这两个表达式都不能如愿！

老师、能有办法让表达式，再加上限制两个关键字符之间字符的多少吗？

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

[求助] 如何查找到中文冒号至加速之间的字符？