HI All

I need to find and replace with a carriage return all occurrences of everything between a "£" sign and the next nine-figure number.

So for example all pattern like

£4.00 $0.42
477489528

Would be found and replaced with a carriage return.

The code would need to run through and replace all such instances. It always starts with the £ sign and ends with a nine-figure number.



Can someone help with some code for this? Grateful for any advice.

Best Wishes ,

Try this:

With Selection.Find

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

End With

__________________
Backup your original file before doing any modification.

Hi

Yes , that's perfect! Thanks very much for your help.


Best Wishes ,