Here you will find how to apply your macro to the current paragraph
LINK .
The linked macro will automatically select the current paragraph if you substitute:
Code:
Debug.Print GetParagraphIndex(r)
with:
Code:
ActiveDocument.Paragraphs(GetParagraphIndex(r)).Range.Select
Once the paragraph is selected you can apply your macro to Find/Replace (even if your macro doesn't seem to work for me??!!).
If it does what you need then you can easily merge the codes into a single Macro + Function and assign it to a shortcut key.