查找指定颜色的某字符替换为另外指定颜色的某字符

duquancai

413191246se 发表于 2017-2-25 13:24
139：杜先生的代码，正则表达式我也看不懂，但是，它里面变量 oRange 是 Range 变量，即“区域”变量，不是 ...

Sub 查找文字_红色突出显示转为蓝色突出显示()
    With ActiveDocument.Content.Find
        Do While .Execute(findtext:="▲")
            With .Parent
                If .HighlightColorIndex = wdRed Then
                    .HighlightColorIndex = wdBlue
                    .Font.Color = wdColorWhite '字体颜色=白色(此语句为了显示效果清晰,故设为白色)
                    .Text = "★"
                    .Collapse 0
                End If
            End With
        Loop
    End With
End Sub

duquancai

413191246se 发表于 2017-2-25 13:24
139：杜先生的代码，正则表达式我也看不懂，但是，它里面变量 oRange 是 Range 变量，即“区域”变量，不是 ...

Sub 查找红色黄色突出显示字符替换为粉红色突出显示字符()
    Dim mt, n&, m&, oStr$, reg As Object
    oStr = Replace(ActiveDocument.Content, Chr(7), "")
    Set reg = CreateObject("vbscript.regexp")
    reg.Global = True: reg.Pattern = "▲"
    For Each mt In reg.Execute(oStr)
        m = mt.FirstIndex: n = mt.Length
        With ActiveDocument.Range(m, m + n)
            If .HighlightColorIndex = wdRed Then
                .HighlightColorIndex = wdBlue
                .Font.Color = wdColorWhite '字体颜色=白色(此语句为了显示效果清晰,故设为白色)
                .Text = "★"
            End If
        End With
    Next
End Sub

13907933959

413191246se 发表于 2017-2-25 13:24
139：杜先生的代码，正则表达式我也看不懂，但是，它里面变量 oRange 是 Range 变量，即“区域”变量，不是 ...

师傅好！
代码是我想要的，测试OK，劳师傅还给了中文注释，这让我能知道每句代码的大概意思，学起来也容易一些。感谢师傅！

13907933959

duquancai 发表于 2017-2-25 15:49
Sub 查找红色黄色突出显示字符替换为粉红色突出显示字符()
    Dim mt, n&, m&, oStr$, reg As Object
...

感谢前辈！谢谢！

13907933959

duquancai 发表于 2017-2-25 15:38
Sub 查找文字_红色突出显示转为蓝色突出显示()
    With ActiveDocument.Content.Find
        Do Whil ...

杜前辈好！
感谢您出手相助！您和我师傅给的代码都是我想要的，虽然凭我这个菜鸟的水平，还看不懂您的代码，更看不出您和我师傅给的代码一句之差的玄妙之处在那里，可我知道一定是好的，我师傅的水平在我心中以是遥不可及，而我师傅说他和您的水平又是天壤之别，所以能常得两位良师的相助，感到很幸运！感谢前辈！

413191246se

139：杜先生 的代码，只是把红色转为蓝色，你自己复制一份（光标放在Sub...End Sub过程中间双击鼠标选中），然后把下面的代码：
If .HighlightColorIndex = wdRed Then
                .HighlightColorIndex = wdBlue
改为：
If .HighlightColorIndex=wdRed or .HighlightColorIndex=wdYellow Then
               .HighlightColorIndex=wdPink
**********这些颜色：红red 黄yellow 粉pink 蓝blue 要记熟（过程名不要重，要改个名字，不然程序不运行）

13907933959

413191246se 发表于 2017-2-26 11:26
139：杜先生 的代码，只是把红色转为蓝色，你自己复制一份（光标放在Sub...End Sub过程中间双击鼠标选中） ...

师傅好！
好的，改好了。