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