|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
正则我接触的时间是在近几个星期。可以说,懵懵懂懂,还没有启蒙。
我想在应用中通过完成一个个自行设计的任务来逐步接触并提高它,所以在这个过程中,
会有一些幼稚可笑的提问和错误。希望刘老师,不要见怪。
下面我有一个这方面的问题。
比喻有这样的一个文档:
27 毛骨悚(sǒng)然
6 xiāo(销 )声匿(nì)迹
要求是这样的:
要将括号里的拼音和文字隐藏。
我的代码是这样的:
Sub 测试()
With ActiveDocument.Content
.Font.ColorIndex = wdBlack
With .Find
.Replacement.Font.ColorIndex = IIf(Me.CommandButton1.Caption = "测试", 8, 1)
.Execute "(?:(\)([!^1-^127]@|[!^13]@)(?:\))", , , 1, , , , , 1, , 2
End With
End With
End Sub
不是为什么没有效果,反而弹出错误对话框。
原帖见:http://club.excelhome.net/thread-1335783-4-1.html
32楼,请刘老师,帮我看看,指导指导。
|
|