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

weiyingde

试卷中经常要在显示和隐藏拼音之间切换，下面的代码意在如此，只可惜在处理拼音的同时，连同前后括号也一起处理了。怎样通过前后括号定位里的内容而不包含括号呢？
我的代码如下，请大侠完善指瑕。
数据如下:
鳞次zhì(栉)比
qiè(锲)而不舍
吹毛求cī(疵)
xiāo(销)声nì(匿)迹
通xiāo(宵)达旦
惟妙惟xiào(肖)
相形见chù(绌)
jiá(戛)然而止
kè(恪)尽职守
忍俊不jīn(禁)
义愤填yīng(膺)
妇rú(孺)皆知
格物zhì(致)知
根深dì(蒂)固
即物起xìng(兴)
毛骨sǒng(悚)然
眼花liáo(缭)乱
藏污纳gòu(垢)
顶礼mó(膜)拜
迫不jí(及)待
不言而yù(喻)
chì zhà(叱咤)风云
广mào(袤)无yín(垠)
浑身xiè(解)数
代码如下：
Sub 隐藏或显示拼音()
n = n + 1
s = n Mod 2 + 1
With CreateObject("Vbscript.Regexp")
     .Global = True
     .MultiLine = True
     .Pattern = "[(\(（)].*?(?=[(\)）)]|$)"
     For Each m In .Execute(ActiveDocument.Content)
       f = m.FirstIndex: l = m.Length
      With ActiveDocument.Range(f, f + l + 1).Font
           .ColorIndex = Choose(s, wdDarkBlue, wdWhite)
      End With
     Next
End With
End Sub

小花鹿

1、不明确切换的具体意思是什么
2、没有附件不应该

weiyingde

小花鹿 发表于 2017-7-7 22:30
1、不明确切换的具体意思是什么
2、没有附件不应该

谢谢关注，问题是这样的：
目的：我想通过运行代码达到隐藏或显示答案的切换的目的。
问题：本只想隐藏括号里的内容，没想到连括号及括号后的部分内容也隐藏了。
求助：只求括号内容的隐藏或显示的切换。不涉及其他内容。
要求：这是以往一个问题的完善和简化，前者在杜先生的指教下已完成。这一次我只想用另外的方式，希望小花鹿先生在我的原代码的基础上进行修改。谢谢了。
附件如下（代码在附件中）。

weiyingde

见附件，请小花鹿指教。谢谢你

小花鹿

Sub 匹配拼音()
n = n + 1
s = n Mod 2 + 1
With CreateObject("Vbscript.Regexp")
     .Global = True
     .MultiLine = True
     .Pattern = "[(\(].*?(?=[(\)）]|$)"
     For Each m In .Execute(ActiveDocument.Content)
       f = m.FirstIndex + 1: l = m.Length
      With ActiveDocument.Range(f, f + l - 1).Font
           .ColorIndex = Choose(s, wdDarkBlue, wdWhite)
      End With
     Next
End With
End Sub

weiyingde

谢谢你，原来是这里的错误：
f = m.FirstIndex + 1
Range(f, f + l - 1)
看来我的思维太呆板，让小花鹿见笑了。

weiyingde

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

在测试发现美中不足。
在隐藏括号内容的同时，发现将“)”之后的内容也给隐藏掉了。
例如：
顶礼mó(膜)拜
广mào(袤)无yín(垠)
隐藏之后变成了：
顶礼mó(  )
广mào(  )      (  )
而应该是：
顶礼mó(   )拜
广mào(   )无yín(   )
红字的部分被失控地隐藏了。不能能否优化或修改代码？

小花鹿

weiyingde 发表于 2017-7-8 09:36
在测试发现美中不足。
在隐藏括号内容的同时，发现将“)”之后的内容也给隐藏掉了。
例如：

我5楼的代码你试了吗？

weiyingde

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

已经试过，确实如此。麻烦你再看一下。

小花鹿

weiyingde 发表于 2017-7-8 10:30
已经试过，确实如此。麻烦你再看一下。