Learn to love the Range object. Almost every element of a Word document has
a Range property. Broadly speaking, an object's Range property is the bit
that would be highlighted if that object were selected.

In addition, a Range object variable acts very much like a Selection, with a
couple of very useful advantages.

1. You can define as many Range objects as you want to. You can even define
an array of Ranges.

2. A range object remains associated with a document even if you activate
another document.

So, for your problem, where you are presently using the Selection to find
your paragraphs, define a range, and use that. It is as simple as defining a
range (call it myRange for instance), set it to the selection or whatever
part of the document you want to search, suing Set myRange = Selection.Range
or similar, and then where you are using With Selection.Find, use instead
With myRange.Find.

Then you could have an additional range variable called myWholePara. Once
you have found something, you can then point myWholePara to the entire
paragraph, with a line of code like this

Set myWholePara = myRange.Paragraphs(1).Range

You can now copy myWholePara elsewhere. myRange hasn't moved, it is still
marking the found word, and so you can do another find to find the next
example.