View Single Post
 
Old 05-19-2017, 05:03 AM
eduzs eduzs is offline Windows 10 Office 2010 32bit
Expert
 
Join Date: May 2017
Posts: 262
eduzs is on a distinguished road
Default

Try this:

With Selection.Find

.Text = "£*[0-9]{9}"
.Replacement.Text = Chr(13)
.MatchWildcards = True
.Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue

End With
Reply With Quote