让word也来个批量正则替换!

xlf512

在很多文本处理软件中都支持批量正则替换，能够很方便地解决很多问题，word中不直接支持，一直想得到这个功能，但今天解决了。 我编写了下列代码，请大家PP Sub test() On Error Resume Next Dim str() As String, treg(400, 2) As String Dim Lstr As String, f As String Dim hcount As Single, fi1(), fi2() As String Dim wdpath As String hcount = 0 wdpath = "C:\1.txt" Open wdpath For Input As #1 Do While Not EOF(1) Line Input #1, Lstr hcount = hcount + 1 '统计替换表的行数 str = Split(Lstr, "↑") treg(hcount, 0) = Replace(str(0), """", "", vbTextCompare) '去掉取出字符中的引号 treg(hcount, 1) = Replace(str(1), """", "", vbTextCompare) Loop Close #1 Dim regEx As Object ' 建立变量 Set regEx = CreateObject("vbScript.RegExp") ' 建立正则表达式 Application.ScreenUpdating = False With ActiveDocument '在整个文档内正则替换 regEx.Global = True regEx.multiline = True For i = 1 To hcount regEx.Pattern = treg(i, 0) ' 设置要找的内容 .Content = regEx.Replace(.Content, treg(i, 1)) '设置替换的内容 Next End With MsgBox "转换完毕！" Application.ScreenUpdating = True End Sub 当然批量正则替换表放在C:\1.txt文件下，写入的规则如下样例： “(.+\r)\1+↑$1” 正则表达式在一对引号里，↑前面的表达要找的内容，↑后面的表示替换后的内容。 我做了一个界面，能够很方便地修改、增、减这个文件。 以后要对word文档进行修改，就可只通过修改这个文件就可达到目的了

[此贴子已经被作者于2005-12-30 19:47:59编辑过]

守柔

谢谢楼主分享，做得不错。园里也有好多。

psmusic

不错啊~正好需要这么呢，拿来参考。谢谢楼主！

[em44]

gemj

高人啊！

万分感谢！

不过能不能让“替换为”也支持啊？

目前这样还是有诸多不便，呵呵！

翘首期待大哥更新哦！

顺便说一句心里话：你是我非常崇拜的男人！

gemj

心里话不准确，应该是：

大哥是我最崇拜的男人！

gemj

QUOTE:

以下是引用守柔在2005-12-31 7:44:50的发言：
谢谢楼主分享，做得不错。园里也有好多。

守柔版主大哥，园里有能让“替换为”也支持正则替换的么？

谢谢啦！