ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 3055|回复: 21

[求助] 如何查找到中文冒号至加速之间的字符,并指定字符数?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-7-4 08:28 | 显示全部楼层 |阅读模式
老师们好!
中文冒号至加速,这两个关键字符之间包含的字符不同,字符的多少也不同,两个关键字符在段中的位置不固定,也不是处在段落的开头和结尾。

这个求助帖我在Word版块以发过,并得到 Cuanju 和 413191246se 老师的帮忙,就是还不能限制两个关键字符之间字符的多少(如3~6个),想请这里的老师们,看看有办法解决否?

http://club.excelhome.net/thread-1544568-1-1.html

详情请看附件,谢射!

Sub d0() 'Cuanju老师的代码,就是还不能限制两个关键字符之间字符的多少。
   With ActiveDocument.Content.Find
       .MatchWildcards = True
       .Text = ":[!^13]@加速"
       Do While .Execute
           With .Parent
                'Stop
                .Select
                .Font.Color = vbPink
                .Start = .End
            End With
       Loop
   End With
End Sub

附件.rar

4.13 KB, 下载次数: 12

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-7-5 15:00 | 显示全部楼层
有不有会的老师,请帮一下忙!感激!

TA的精华主题

TA的得分主题

发表于 2020-7-5 15:14 来自手机 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
需要限定多少呢?

TA的精华主题

TA的得分主题

发表于 2020-7-5 15:50 | 显示全部楼层
加正则处理:
  1. Sub test()
  2.     Dim mh, reg
  3.     Set reg = CreateObject("VBScript.RegExp")
  4.     With reg
  5.         .Pattern = ":[^\r]{3,6}加速"
  6.         .Global = True
  7.     End With
  8.     Set mh = reg.Execute(ActiveDocument.Content)
  9.     If mh.Count > 0 Then
  10.         For Each mhk In mh
  11.             With ActiveDocument.Content.Find
  12.                 .MatchWildcards = True
  13.                 .Text = mhk
  14.                 Do While .Execute
  15.                     With .Parent
  16.                         'Stop
  17.                         .Select
  18.                         .Font.Color = vbBlue
  19.                         .Start = .End
  20.                     End With
  21.                 Loop
  22.             End With
  23.         Next
  24.     End If
  25. End Sub
复制代码


TA的精华主题

TA的得分主题

发表于 2020-7-5 15:51 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
请参考附件:


附件.rar (12.8 KB, 下载次数: 5)

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-7-5 19:17 | 显示全部楼层

老师好!
感谢老师!你的代码完美达愿!
想再请教老师、如我查找段落符开头至中文冒号之间的3~6个任意字符,要怎样修改代码?

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-7-5 19:18 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-7-5 19:41 | 显示全部楼层
duquancai 发表于 2020-7-5 15:14
需要限定多少呢?

杜老师好!
好久没看到你到 Word 板块露面了!
我想限定 3~6 个,最好是这限定的字符数可修改,谢谢!

TA的精华主题

TA的得分主题

发表于 2020-7-5 20:18 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
我只会inStr

TA的精华主题

TA的得分主题

发表于 2020-7-5 23:38 | 显示全部楼层
相见是缘8 发表于 2020-7-5 19:17
老师好!
感谢老师!你的代码完美达愿!
想再请教老师、如我查找段落符开头至中文冒号之间的3~6个任意 ...

将正则改为"\r[^\r]{3,6}:"试试!
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-3-29 20:04 , Processed in 0.056665 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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