VBA实现在word中的替换（需用正则） 5

比如说我要把word文件中的select*换成selectrow需要考虑换行的情况，保证换完之后格式不能改变select*... 比如说我要把word文件中的select *换成select row
需要考虑换行的情况，保证换完之后格式不能改变
select
* 展开

 我来答

1个回答

#热议# 为什么说不要把裤子提到肚脐眼？

mfkinfo
2015-11-10 · TA获得超过6348个赞

知道大有可为答主

回答量：4553

采纳率：83%

帮助的人：947万

我也去答题访问个人页

关注

展开全部

你的想法有问题：select *替换成select row后，select后面不管有多少文本都会被替换为row，还用考虑格式吗？
你的问题，可能使用word的替换功能就能实现了，只是在替换内容和替换为里使用正则表达式就可以了。
你可以把文档相关图片传上来，大家帮你看看。

追问

我是想把*换成row，但是select和*之间的空格数是不一定的中间也可能存在换行，不知道这样说，你能不能明白。
还有一点，我必须要使用VBA代码来实现！

追答

Sub 宏1()
Dim setStr$

Dim expR As New RegExp
With expR
.Pattern = "(select *)\*"
.MultiLine = True
.Global = True
.IgnoreCase = True
End With

setStr = expR.Replace(Selection.Range.Text, "$1" + "row")
End Sub

Sub 宏2()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(select[ ]*)\*"
        .Replacement.Text = "\1row"
        .Forward = True
        .Wrap = wdFindAsk
        .Wrap = wdFindContinue
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub