如何一步到位直接将书名号里的书名替换成红色

wuwenbin32415

例子：鲁迅《孔乙己》 茅盾《林家铺子》 巴金《家》 老舍《骆驼祥子》 曹禺《雷雨》

我刚开始想用表达式的替换法，查找内容为(《)(*) (》)，勾选“使用通配符”，替换为\1\2\3，在\2的后面时设置“格式”里的“字体”、“字体颜色”为红色，但是这样操作出来的效果是都变成红色了，不仅书名变成了红色，书名号也变成了红色，就连作者也都变成了红色。
我现在的作法是两步查找，第一步先查找《*》，勾选“使用通配符”，这样会选中书名号和里面的书名，第二步再查找[!《*》]，这样会选中书名，再设置字体颜色红色。
请教大神，有没有一步到位直接将书名号里的书名替换成红色的方法？另外，表达式的替换是不是不能将其中一个单独替换，只能将多个表达式都替换掉？

遥控器78

一步的话只能VBA了，参考 https://club.excelhome.net/forum ... amp;_dsign=71433eb2  3楼，.Font.Color = wdColorRed

wuwenbin32415

谢谢遥控器78！基础操作的替换法做不到是吧？

相见是缘8

手动替换一步到位，还未见到，这是我以前收藏的一个老师的代码，挺好用的！
Sub 替换书名()
   '只替换书名号内的字体为红色，书名号不替换。
    With Selection
        .HomeKey 6
        With .Find
            .ClearFormatting
            .Text = "[《]*[》]"
            .Replacement.Text = ""
            .Forward = True
            .MatchWildcards = True
            Do While .Execute
                With .Parent
                    .MoveStart
                    .MoveEnd 1, -1
                    .Font.Color = wdColorRed
                    .Start = .End
                End With
            Loop
        End With
        .HomeKey 6
    End With
End Sub

相见是缘8

重了一个……删除！

limonet

不用代码可以两次解决。