You've gone straight to
With Para.Range

Without telling Word what Para is



Where is the loop
For Each Para In ActiveDocument.Paragraphs
...
Next Para

And get rid of the On Error Resume Next so it is easier to debug.

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia

Thank you Andrew, not sure what happened there as I copied the code in your post as is, seems to be working ok now. Many thanks for your help