正则运用中的错误

weiyingde

目的是改变批量改变文本中指定汉字的颜色。
比如：
广袤(mào)无垠(yín)
精血(xiě)诚(chéng)聚
要求：
将其中“无垠"、"诚"等夹在“)”和“(”中间的汉字改为黑色。

代码如下：
Sub 转中间汉字为黑色()
Dim regx As Object, mth
Set regx = CreateObject("vbscript.regexp")
    regx.Global = True
    regx.Pattern = "(\)[一-﨩]+\(）"
    For Each mth In regx.Execute(ActiveDocument.Content)
        k = mth.FirstIndex: c = mth.Length
        With ActiveDocument.Range(k, k + c)
            .Font.Name = "方正姚体"
            .Start = .Start + 1
            .End = .End - 1
            .Font.ColorIndex = 1 '1,黑色；2，蓝色；3，天兰；4，绿色；5，红色；6，红色；7，黄色；8，白色
        End With
    Next
End Sub

问题：弹出“运行是错误5025“。

请大侠指教。

weiyingde

自己找出来了："）"写成了中文状态的，应该写成英文的。

jiminyanyan

weiyingde 发表于 2017-3-18 19:56
自己找出来了："）"写成了中文状态的，应该写成英文的。

Sub 转中间汉字为黑色()
Dim regx As Object, mth
Set regx = CreateObject("vbscript.regexp")
    regx.Global = True
    regx.Pattern = "\)[一-﨩]+\("
    For Each mth In regx.Execute(ActiveDocument.Content)
        k = mth.FirstIndex: c = mth.Length
        With ActiveDocument.Range(k, k + c)
            .Font.Name = "方正姚体"
            .Start = .Start + 1
            .End = .End - 1
            .Font.ColorIndex = 1 '1,黑色；2，蓝色；3，天兰；4，绿色；5，红色；6，红色；7，黄色；8，白色
        End With
    Next
End Sub

jiminyanyan

weiyingde 发表于 2017-3-18 19:56
自己找出来了："）"写成了中文状态的，应该写成英文的。

外面的括号也可以不用…………

weiyingde

jiminyanyan 发表于 2017-3-18 20:13
外面的括号也可以不用…………

为什么不用？请举个例子说说他们的差别，谢谢你了。
关于上面这段代码，还有个问题，我想将“）”和“（”改为：蓝色，方正姚体，代码如下，自我感觉有点罗嗦，能否简化，请你帮我看看。
Sub 转中间汉字为黑色()
Dim regx As Object, mth
Set regx = CreateObject("vbscript.regexp")
    regx.Global = True
    regx.Pattern = "(\)[一-﨩]+\()"
    For Each mth In regx.Execute(ActiveDocument.Content)
        k = mth.FirstIndex: c = mth.Length
        With ActiveDocument.Range(k, k + c)
            .Font.Name = "楷体" '"楷体"
            .Start = .Start + 1
            .End = .End - 1
            .Font.ColorIndex = 1 '1,黑色；2，蓝色；3，天兰；4，绿色；5，红色；6，红色；7，黄色；8，白色
        End With
        With ActiveDocument.Range(k, k + c).Characters(1)
            .Font.Name = "方正姚体"
            .Font.ColorIndex = 2
        End With
        With ActiveDocument.Range(k, k + c).Characters(c)
            .Font.Name = "方正姚体"
            .Font.ColorIndex = 2
        End With
    Next
End Sub

jiminyanyan

weiyingde 发表于 2017-3-18 20:38
为什么不用？请举个例子说说他们的差别，谢谢你了。
关于上面这段代码，还有个问题，我想将“）”和“（ ...

哈，能实现功能就好，看看也没啥好简化的。

weiyingde

这我是的第一段正则代码。
是我模仿duquancai 大侠的代码写的，目的是完善原有代码的不足，写完心里没底，问问大侠。
望大侠不吝赐教，以后会有许多不懂的东西，希望继续得到指点。

weiyingde

jiminyanyan 发表于 2017-3-18 21:04
哈，能实现功能就好，看看也没啥好简化的。

这我是的第一段正则代码。
是我模仿duquancai 大侠的代码写的，目的是完善原有代码的不足，写完心里没底，问问大侠。
望大侠不吝赐教，以后会有许多不懂的东西，希望继续得到指点。

weiyingde

jiminyanyan 发表于 2017-3-18 21:04
哈，能实现功能就好，看看也没啥好简化的。

我将自己5楼的代码简化一下，代码如下有问题，请大虾指瑕。
Sub 转中间汉字为黑色2()
Dim regx As Object, mth
sstr = ")("
Set regx = CreateObject("vbscript.regexp")
    regx.Global = True
    regx.Pattern = "\)[一-﨩]+\("
    For Each mth In regx.Execute(ActiveDocument.Content)
        k = mth.FirstIndex: c = mth.Length
        With ActiveDocument.Range(k, k + c)
            .Font.Name = "楷体" '"楷体"
            .Start = .Start + 1
            .End = .End - 1
            .Font.ColorIndex = 1 '1,黑色；2，蓝色；3，天兰；4，绿色；5，红色；6，红色；7，黄色；8，白色
        End With
        For Each cha In ActiveDocument.Range(k, k + c).Characters
          If InStr(sstr, cha) <> 0 Then
             With cha.Font
                  .Font = "方正姚体"
                  .ColorIndex = 2
             End With
          End If
        Next
       ' With ActiveDocument.Range(k, k + c).Characters(1)
       '     .Font.Name = "方正姚体"
       '     .Font.ColorIndex = 2
       ' End With
       ' With ActiveDocument.Range(k, k + c).Characters(c)
       '     .Font.Name = "方正姚体"
       '     .Font.ColorIndex = 2
       ' End With
    Next
End Sub

jiminyanyan

weiyingde 发表于 2017-3-19 08:41
我将自己5楼的代码简化一下，代码如下有问题，请大虾指瑕。
Sub 转中间汉字为黑色2()
Dim regx As Obje ...

感觉这个给你写更复杂了，代码行数少并不代表简单……。