恳请指瑕完善：隐藏或显示括号拼音

weiyingde

小花鹿 发表于 2017-7-8 10:58

你是对的……
谢谢，再测试，发现表达式有些区别：
你的表达式是：
[(\(].*?(?=[(\)）]|$)
我的是：
"[(\(（)].*?(?=[(\)）)]|$)"
我忽视了它的细微区别，谢谢提醒，我对你的表达式，再想想，看看能明白不。

小花鹿

weiyingde 发表于 2017-7-8 11:52
你是对的……
谢谢，再测试，发现表达式有些区别：
你的表达式是：

[(\(].*?(?=[(\)）]|$)  其实，这个表达式也是错的，如果最后一个没有右括号也会被匹配

weiyingde

小花鹿 发表于 2017-7-8 09:55
我5楼的代码你试了吗？

最后完善为：.Pattern = "[（\(].*?(?=[\)）]|$)"
老师的.Pattern = "[(\(].*?(?=[(\)）]|$)"应该为“（”中文括号，否则有部分文档无变化.

小花鹿

weiyingde 发表于 2017-7-8 12:37
最后完善为：.Pattern = "[（\(].*?(?=[\)）]|$)"
老师的.Pattern = "[(\(].*?(?=[(\)）]|$)"应该为“（ ...

直接这样就行了：[（\(].*?[\)）]

duquancai

小花鹿 发表于 2017-7-8 08:27
Sub 匹配拼音()
n = n + 1
s = n Mod 2 + 1

Sub shishi()
    TF = InputBox("输入'0'隐藏；输入'1'显示", , 0)
    If TF = "" Or Not IsNumeric(TF) Then Exit Sub
    With ActiveDocument.Content.Find
        Do While .Execute("[\(（]*[\)）]", , , 1)
            With .Parent
                .Start = .Start + 1: .End = .End - 1
                .Font.ColorIndex = IIf(TF, wdDarkBlue, wdWhite)
                .Start = .End + 1
            End With
        Loop
    End With
End Sub

weiyingde

duquancai 发表于 2017-7-8 14:11
Sub shishi()
    TF = InputBox("输入'0'隐藏；输入'1'显示", , 0)
    If TF = "" Or Not IsNumeric( ...

谢谢杜老师再赐代码，你的代码总是具有灵性。

weiyingde

小花鹿 发表于 2017-7-8 12:18
[(\(].*?(?=[(\)）]|$)  其实，这个表达式也是错的，如果最后一个没有右括号也会被匹配

是的，这个倒是我在中文状态用搜狗拼音输入时，自动添加上去的，当时疏忽没发现（眼睛严重老化）。