Hi Andrew, thank you for replying - I added your extra bit of code and I think it has removed a few of the duplicates but many still remain - with regard to your query re separated by spaces, yes that would be great if those could be included also.
Code:
.text = "[\[" & ChrW(9679) & "\]]{4,}"
.Execute Replace:=wdReplaceAll
Capture 1.JPG
Capture 2.JPG