正则运用中的错误

weiyingde

jiminyanyan 发表于 2017-3-19 13:05
感觉这个给你写更复杂了，代码行数少并不代表简单……。

这个遍历找到的对象的字符的方式，为什么没有结果，语法应该没问题吧？

jiminyanyan

weiyingde 发表于 2017-3-19 13:22
这个遍历找到的对象的字符的方式，为什么没有结果，语法应该没问题吧？

sstr = ")("
要分两次)和(，既然你已经知道位置，就没必要遍历了…………。

weiyingde

1、遍历的目的是为了给汉字和括号使用不同的字体和颜色呀。
2、要分两次)和(，怎么讲，请具体讲一下。
3、我的那段代码怎么改动。

weiyingde

jiminyanyan 发表于 2017-3-19 13:26
sstr = ")("
要分两次)和(，既然你已经知道位置，就没必要遍历了…………。

1、遍历的目的是为了给汉字和括号使用不同的字体和颜色呀。
2、要分两次)和(，怎么讲，请具体讲一下。
3、我的那段代码怎么改动。

jiminyanyan

weiyingde 发表于 2017-3-19 13:39
1、遍历的目的是为了给汉字和括号使用不同的字体和颜色呀。
2、要分两次)和(，怎么讲，请具体讲一下。
...

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
        If InStr(ActiveDocument.Range(k, k + c), ")") <> 0 Then
            With ActiveDocument.Range(k, k + c).Characters(InStr(ActiveDocument.Range(k, k + c), ")"))
                .Font.Name = "方正姚体"
                .Font.ColorIndex = 2
            End With
        End If
        If InStr(ActiveDocument.Range(k, k + c), "(") <> 0 Then
            With ActiveDocument.Range(k, k + c).Characters(InStr(ActiveDocument.Range(k, k + c), "("))
                .Font.Name = "方正姚体"
                .Font.ColorIndex = 2
            End With
        End If
    Next
End Sub

weiyingde

jiminyanyan 发表于 2017-3-19 14:29
Sub 转中间汉字为黑色2()
    Dim regx As Object, mth
    sstr = ")("

这个思路很清晰，速度应该快一些，很好。
但我觉得我的那段应该没有语法错误吧？