[求助][讨论]请教各位版主——关于正则替换

zgzxp

在  让word也来个批量正则替换!  帖子中

http://club.excelhome.net/viewthread.php?tid=143336&replyID=&skin=0

替换后的文档格式会与第一段的格式一致

我使用

__________________________以下新代码_____________________________________

For p = 1 To .Paragraphs.Count '遍历所有段落
If Len(.Paragraphs(p).Range) = 0 Then GoTo Np '跳过空段落
    For i = 1 To hcount
    If treg(i,0) = "" And treg(i ,1) = "" Then GoTo NREj
    regEx.Pattern = treg(i, 0) ' 设置要找的内容
    .Paragraphs(p).Range = regEx.Replace(.Paragraphs(p).Range, treg(i,1)) '设置替换的内容
NREj:
    Next
Np:
Next

________________________以上是新代码_______________________________________

替换

_______________________以下源代码_______________________________________

For i = 1 To hcount
regEx.Pattern = treg(i, 0) ' 设置要找的内容
.Content = regEx.Replace(.Content, treg(i, 1)) '设置替换的内容
Next
End With

________________________以上是原代码__________________________________________

替换 .Content属性后，不会和首段相同，但新问题是每一段都会和下一段的对齐格式相同

请问为什么会出现这种情况，有办法解决吗

谢谢

[此贴子已经被作者于2006-9-11 19:37:46编辑过]

zgzxp

发个例子

版主们看看阿

在 工具  菜单下直接测试就可以了

谢谢

hx095hGY.rar (7.89 KB, 下载次数: 22)

2006-9-11 20:21 上传

点击文件名下载附件

[此贴子已经被作者于2006-9-11 20:21:17编辑过]

konggs

短信已收到。

这样行否？

Sub newcode() '修改后的代码
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 = ActiveDocument.Path
If Right(wdpath, 1) <> "\" Then wdpath = wdpath & "\方案.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 p = 1 To .Paragraphs.Count '遍历所有段落
If Len(.Paragraphs(p).Range) = 1 Then GoTo Np '跳过空段落
    For i = 1 To hcount
    If treg(i, 0) = "" And treg(i, 1) = "" Then GoTo NREj
    regEx.Pattern = treg(i, 0) ' 设置要找的内容
Dim a As Range
        Set a = .Paragraphs(p).Range
            a.SetRange a.Start, a.End - 1

    a = regEx.Replace(a, treg(i, 1)) '设置替换的内容
NREj:
    Next
Np:
Next
End With
MsgBox "转换完毕！"
Application.ScreenUpdating = True
End Sub

zgzxp

非常感谢

但是如果这样的话是将段落的回车符排除的

如果我在方案中使用

\u000D→这是回车符

就不会起作用了

再次感谢

[此贴子已经被作者于2006-9-11 23:14:01编辑过]

zgzxp

另外想问一下

如果是遍历段落

是使用 For p = 1 To .Paragraphs.Count 效率高

还是使用For Each element In group 这样的语句效率高

谢谢