正则表达式入门与提高---VBA平台的正则学习参考资料

wzsy2_mrf

我的意思主要是想删除回车符。如下例：
djsfhkgjklfd回车（不删）
回车（删）
回车（删）
回车（删）
回车（删）
djsfhkgjklfd回车（不删）

liu-aguang

wzsy2_mrf 发表于 2014-7-3 22:12
我的意思主要是想删除回车符。如下例：
djsfhkgjklfd回车（不删）
回车（删）

Sub test()
    Set reg = CreateObject("vbscript.regexp")
    reg.Pattern = "^\s*$"
    For i = ActiveDocument.Paragraphs.Count To 1 Step -1
        If reg.test(ActiveDocument.Paragraphs(i).Range) Then
            ActiveDocument.Paragraphs(i).Range = ""
        End If
    Next
End Sub

liu-aguang

wzsy2_mrf 发表于 2014-7-3 22:12
我的意思主要是想删除回车符。如下例：
djsfhkgjklfd回车（不删）
回车（删）

上传错误.....

liu-aguang

wzsy2_mrf 发表于 2014-7-3 22:12
我的意思主要是想删除回车符。如下例：
djsfhkgjklfd回车（不删）
回车（删）

.........................

wzsy2_mrf

liu-aguang 发表于 2014-7-3 23:08
Sub test()
    Set reg = CreateObject("vbscript.regexp")
    reg.Pattern = "^\s*$"

多谢。不过这样循环还是麻烦一点，不知有没有更简捷的办法。

liu-aguang

wzsy2_mrf 发表于 2014-7-4 10:42
多谢。不过这样循环还是麻烦一点，不知有没有更简捷的办法。

最简单的莫过用word自身的"替换"功能.
查找内容:([!。：……？！）])^13{1,}
替换为:\1
勾选通配符.

鄂龙蒙

学习教材收藏了，谢谢！

Kelidai

收藏学习了。

tulazhen

楼主和楼里高手都是大好人，看完这个再看视频就更清楚了！！！

422904z

收藏，好好学习了。