如何用正则表达式插入字符串？

GONG2816 · 发表于 2019-10-29 17:02

大侠好！
我在整理规章制度时，需要使用正则表达式插入字符串。烦请大侠指导。
例如，一个文件中有“第一条”、“第二条”等，有的后面没有空格，有的后面空了格但空格数量有多有少，需要将“第一条”、“第二条”后面统一调整为空2格。麻烦指导。

tcdatongye · 发表于 2019-10-31 09:25

查找替换，先查找第?条，替换时原内容加两个空格，再查找(第?条 {2} ) @，替换成\1

liuhoubin168 · 发表于 2019-10-31 11:21

这个不用正则也能实现吧
1．删除所有为第X条后的所有空格
2．查找行首为第X条的，并替换为第X条+空格，

liuhoubin168 · 发表于 2019-10-31 11:31

本帖最后由 liuhoubin168 于 2019-10-31 11:34 编辑

查找：(第[一二三四五六七八九十百千零○〇]{1,7}条)([ 　]{1,20})
使用通配符
替换：\1
第2次查找替换：
查找：^13(第[一二三四五六七八九十百千零○〇]{1,7}条)
替换：^p\1 (有2个空格)

GONG2816 · 发表于 2019-11-1 09:38

不用正则的方法我已经实现，因为我还有涉及样式的引用，需要按每个段落分别进行处理，所以不用正则的方法显得很麻烦，每将每个段落的开头插入一个特殊字符，然后再引用样式，所以才想到用正则的方法，分段落进行替换。
前面几位老师的思路我也明白，就是不知道用正则的话具体的代码如何实现。烦请给出具体的代码

413191246se · 发表于 2019-11-1 14:43

楼主，请试用我的《通用模板宏》，里面有现成的《第一章》（条）宏。

GONG2816 · 发表于 2019-11-1 15:26

好的。谢谢！
您的模板已经下载，将好好学习领会。
再次衷心感谢

liuhoubin168 · 发表于 2019-11-1 20:40

word中避免使用正则替换，可能造成格式丢失。
纯属个人见解。

tcdatongye · 发表于 2019-11-2 20:03

Sub 正则替换()
With ActiveDocument.Content
n = .Paragraphs.Count
For i = n To 1 Step -1
Set rng = .Paragraphs(i).Range
bb = 正则查找(rng)
If bb <> "" Then
arr = Split(bb, "|")
rng.End = rng.Start + arr(1)
rng.Text = arr(0) & " "
End If
Next i
End With
End Sub
Function 正则查找(内容)
Set reg = CreateObject("vbscript.regexp")
With reg
.Pattern = "^(第[^第条]+条) *"
If .Test(内容) Then
Set aa = .Execute(内容)
正则查找 = aa(0).SubMatches(0) & "|" & aa(0).Length
Else
正则查找 = ""
End If
End With
Set reg = Nothing
End Function

复制代码

		自动登录	找回密码
密码			免费注册