RobiNew, replace

Set oRng = selection.range
with
Set oRng = ActiveDocument.range

and the macro will work on the whole doc. Or maybe I don't quite understand your point.