word中利用正则表达式查找替换

duquancai

记得有一题目“在word里有一串字母，比如abcdabcdaaabbaabcaaaaaa.......一连串字母，要求搜素出“abc”这个固定排列，并且把“abc"后面接着的6个字母提取出来。  如上面的例子，就是要abc后面的，把“dabcda"  "daaabb" "aaaaaa" ，找出来，并且全部复制提取出来。”，详见：http://club.excelhome.net/forum.php?mod=viewthread&tid=1223907。现在用“word中利用正则表达式查找替换”来解答，在Word文档中有内容：abcdabcdaaabbaabcaaaaaa.......下列事例代码：

Sub word正则查找替换()
    Dim myString As Variant
Application.ScreenUpdating = False
    Set reg = CreateObject("vbscript.regexp")
    myString = ActiveDocument.Content
    With reg
        .Pattern = "(?=(abc[a-z]{6}))"
        .Global = True
        .IgnoreCase = False
        .MultiLine = True
         myString = .Replace(myString, "，$1")
    End With
       ActiveDocument.Content.Text = myString
    With Selection
       .EndKey wdStory
       .Delete
       .HomeKey wdStory
    End With
    Set myString = Nothing
    Set reg = Nothing
Application.ScreenUpdating = True
End Sub

运行上面代码后，在word文档中内容如下：

，abcdabcdaabcd，abcdaaabbabcdaaabba，abcaaaaaaabcaaaaaa.......

本事例只是抛砖引玉。

13907933959

前辈好！

如我要查找文档内，由汉字组成的不同的重复句子，能否求前辈给编个代码，谢谢！

cangbei

同求同求同求

5ihome

大神您好，能帮我解决一个正则难题吗，万分感谢

http://club.excelhome.net/thread-1334942-1-1.html

weiyingde

学习了，收藏研究

loquat

阿杜可以写点基础点的正则应用，传承下去

weiyingde

loquat 发表于 2017-3-21 22:25
阿杜可以写点基础点的正则应用，传承下去

说得好，翘首企盼！！

weiyingde

杜老师，你这例子的要求是：“要求搜素出“abc”这个固定排列，并且把“abc"后面接着的6个字母提取出来。”
结果应该是：“dabcda"  "daaabb" "aaaaaa" ，你的程序代码不是是这样呀？
Sub word正则查找替换() '搜素出"abc"这个固定排列，并且把"abc"后面接着的6个字母提取出来。
Dim myString As Variant, mt, mh, isr
Application.ScreenUpdating = False
Set reg = CreateObject("vbscript.regexp")
myString = "abcdabcdaabcd，abcdapabbabcdalmabba，abcaaagtaklabcaabfaa"
    With reg
        .Pattern = "abc([a-z]{6})"
        .Global = True
        .IgnoreCase = False
        .MultiLine = True
        ' myString = .Replace(myString, "，$2")
        Set mh = .Execute(myString)
    End With

    For i = 0 To mh.Count - 1
        isr = isr & mh(i).submatches(0) & ","
    Next
    ActiveDocument.Content.Text = isr
Application.ScreenUpdating = True
'结果；dabcda,dapabb,dalmab,aaagta,aabfaa
End Sub