如何同时查找两个以上的词组而排除其中的单字

wdpfox

With ActiveDocument.Content.Find
        
        .ClearFormatting
        
        Do While .Execute("[李四,张三,王二]{2}", , , 1, , , 1)
            
            With .Parent
            
                .Select
               
                With Selection
                    
                  
                        If Selection.text Like "李四" Then
                           
                            .Find.Execute "李四", , , 0, , , , , , "赵五", 2     '  替换功能，可以省略！
                           
                            .Font.Color = wdColorGreen
                           
                        ElseIf Selection Like "张三" Then
                           
                            .Find.Execute "张三", , , 1, , , , , , "钱六", 2
                           
                            .Font.Color = wdColorRed
                           
                        ElseIf Selection Like "王二" Then
                           
                            .Find.Execute "王二", , , 1, , , , , , "孙七", 2
                           
                            .Font.Color = wdColorBlue
                           
                        End If
                        
                  
                  
                    
                End With
               
                .Collapse 0
               
            End With
            
        Loop
        
    End With
   
    Selection.HomeKey Unit:=wdStory

测试文本：
李四打电话给张三说：“张三儿，我是小磊，王二家停电了。”
李三打电话给张二说：“三儿，我是大磊，王四家停电了。”

供大家参考，不一定正确。

夜雨忆星辰

jiminyanyan 发表于 2018-5-6 21:11
参考杜老师的写法。
Sub Word文档中修改格式()
    Dim i As Paragraph, mt, oRang As Range, n%, m%

非常感谢您的帮助！我还是一个初学者，要学的东西还有很多，惭愧！

夜雨忆星辰

相见是缘8 发表于 2018-5-7 08:00
Sub 查找()
    With ActiveDocument.Content.Find
        .Replacement.Font.Color = RGB(255, 0, 0)

对呀！我怎么就没有想到把{}加在后面呢！真是太感谢了！

夜雨忆星辰

wdpfox 发表于 2018-5-7 10:58
With ActiveDocument.Content.Find
        
        .ClearFormatting

非常感谢您的帮助！我要学的东西还有很多！

夜雨忆星辰

ming0018 发表于 2018-5-7 08:47
4楼正则没毛病，可拓展性强。多个词组用正则，单个直接查找替换效率更高。

感谢帮助！深深觉得自己要学的还有很多！

leikaiyi123

wdpfox 发表于 2018-5-7 10:58
With ActiveDocument.Content.Find
        
        .ClearFormatting

[李四,张三,王二]{2}这句逗号没用吧？仍会查到"李张"、"李三"、"四三"、"李,"、"四,"等，影响效率。当然用like排除了以上特殊情况予以不处理。
在查找结果中二次查找并替换，用到select可能会影响效率。
受此启示，四楼正则查找到之后若用like可能效率会好一点。

13907933959

相见是缘8 发表于 2018-5-7 08:00
Sub 查找()
    With ActiveDocument.Content.Find
        .Replacement.Font.Color = RGB(255, 0, 0)

代码在“附件”上运行OK，能达目的。

wdpfox

leikaiyi123 发表于 2018-5-7 23:17
[李四,张三,王二]{2}这句逗号没用吧？仍会查到"李张"、"李三"、"四三"、"李,"、"四,"等，影响效率。当然 ...

没有用，可以省略。

wdpfox

leikaiyi123 发表于 2018-5-7 23:17
[李四,张三,王二]{2}这句逗号没用吧？仍会查到"李张"、"李三"、"四三"、"李,"、"四,"等，影响效率。当然 ...

杜老师的代码可以解决问题，但必须是纯文本，有图片的话，必须是嵌入型的。不然的话，会造成“定位”误差（这是杜老师提到的所谓的“坑”，向杜老师学到了很多，感谢）。纯属个人理解，不喜勿抛砖呀。